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1 ritmo de vida aumenta, la actividad se hace fre- 
nética y se acumulan los papeles. El médico se 
percata de que desperdicia su propia profesio- 
nalidad compilando impresos, actualizando fi- 
chas y reconstruyendo historias clínicas. El abo- 
gado se siente atrapadc. El director necesita in- 
formaciones concisas en tiempo real, sin tener 
que interpretar personalmente números, datos y 
p tablas. El empleado se ocupa del trabajo imper- 
sonal ligado a la correspondencia. Se hace cada vez más difícil 
gestionar montañas de datos, laberintos de informaciones y se 
siente una necesidad cada vez mayor de delegar un trabajo tan 
necesario, pero enojosamente repetitivo, al que sepa hacerlo rá- 
pido y bien. Una ayuda válida existe ya en la actualidad y es la 
que proporciona el ordenador, una máquina lógicamente un tanto 
sofisticada y en evolución, pero que no puede ignorarse. 

Cada aplicación del ordenador con respecto a las problemá- 
ticas de gestión gravitan en torno a una organización de datos. 
Las bases de datos, esas desconocidas, podemos imaginarlas 
como un criterio de organización de la información y una meto- 
dología de utilización, así como en una organización de transpor- 
tes aéreos existen los medios y las rutas que permiten su empleo. 
Este elemento fundamental de la informática fue y es objeto de 
profundas investigaciones, algunas en el ámbito del proceso elec- 
trónico de datos, debido a la gran demanda en el mercado. Ya se 
ha hecho mucho a este respecto y cada ordenador construido para 
aplicaciones de gestión está organizado de modo que facilita la 
tarea del proyectista de bancos de datos, tanto desde el punto de 
vista estructural para el acceso a las memorias de masa como por 
el software de base especializado para estas aplicaciones. 


Pero ¿qué se puede hacer con un ordenador personal? ¿Qué 
permiten los límites naturales de memoria y cuáles de los con- 
ceptos y soluciones técnicas adoptados en el ordenador de nivel 
superior se pueden aplicar? Este es el núcleo fundamental de 
nuestro libro, que se propone aclarar, en la medida de lo posible, 
tales conceptos cen un ejemplo de base de datos para su orde- 
nador personal. Antes de ello, consideramos necesario “refrescar” 
algunos principios teóricos de la organización de datos y refle- 
xionar sobre cuáles pueden ser los escollos consiguientes en el 
ámbito del ordenador personal. 

No pretendemos difundir un texto de opinión y consideramos 
más importante el aspecto instructivo que lo que una realización 
práctica puede ofrecer al lector. 

Con este volumen finaliza la Biblioteca Básica Informática. 
Queremos agradecerles a todos ustedes el apoyo y el aliento que 
siempre nos han ofrecido. Esperamos haberles correspondido 
adecuadamente y seguirles encontrando en las demás publica- 
ciones de Editorial Ingelek. 


UN POCO DE TEORIA 


l ordenador está constituido por tres partes prin- 
cipales: un instrumento lógico (CPU o unidad 
central), la memoria con la que trabaja y los dis- 
positivos a través de los cuales se comunica con 
el mundo exterior. La memoria con posibilida- 
des de acceso directo desde la CPU está limi- 
tada por motivos de costes y por el tipo de uni- 
dad central. No obstante, se dispone de memo- 
rias de masa de gran capacidad para superar 
esta limitación, tales como discos, cintas magnéticas, etc. En tal 
caso los accesos son mucho más lentos, porque el tratamiento sólo 
es posible transportando primero los datos desde estas memorias 
auxiliares a la memoria interna. De aquí nace la problemática de 
la gestión de datos, que consiste en encontrar la solución de com- 
promiso entre costes, tiempos y metodología. 

Comenzamos por indicar cuáles son los principales proble- 
mas planteados en el proyecto de un banco de datos, en los ca- 
sos más generales, y a continuación veremos cómo aplicar el es- 
tudio teórico a nuestro caso, esto es, a la aplicación en el ordena- 
dor personal. El primer problema que se plantea es cómo organi- 
zar los datos, es decir, qué tipo de estructura lógico-física se adap- 
ta mejor a las exigencias que nuestro archivo trata de superar. La 
estructura física caracteriza el modo en el que los datos están fí- 
sicamente representados en la memoria del ordenador. Por el con- 
trario, la estructura lógica, con independencia de la estructura fí- 
sica de almacenamiento, constituye la representación de los da- 
tos tal como se “ven” por el usuario del sistema. 

Las informaciones que almacenamos en un archivo pueden 
considerarse camo grupos de informaciones de base, entre las 
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cuales existen relaciones lógicas que las ponen en correlación. La 
estructura lógica de un archivo indica cuáles son los datos ele- 
mentales y sus grupos, cuáles son las relaciones entre datos para 
formar los grupos y cuáles son las relaciones entre los grupos que 
forman el archivo. 

Mucho más complejo es lo que se refiere a la estructura físi- 
ca. La elección de esta última depende, sobre todo, del hardware 
de que se disponca, del tipo de proceso que se quiere desarro- 
llar y de los tiempos de acceso a la información necesarios para 
que esta última no pierda validez. a 

Los parámetros principales para la elección de una estrmuctu- 
ra física en lugar de otra son: 


e El coeficiente de densidad, dado por la relación entre el es- 
pacio de memoria ocupado por las informaciones y el es- 
pacio total del archivo (incluyendo también las informacio- 
nes complementarias para la extracción de los datos prin- 
cipales). 

e La longitud de búsqueda, es decir, el número de accesos 
necesarios para obtener una información particular. 

o facilidad de actualización del archivo: eliminación, inser- 
ción o modificación de un dato. 


Los tipos más sencillo de estructura física son tres: secuen 
cial, aleatoria y de listas. A continuación se expondrán las venta- 
jas y los inconvenientes y más adelante trataremos de estructuras 
de tipo más complajo. 


Estructuras secuenciales 


Este es uno de los métodos más conocidos y utilizados para 
la organización de los datos; su característica principal es que los 
datos que camponen el archivo están almacen ados de forma 
cuencial uno tras otro. Si consideramos la información subdividi- 
da en dos partes: atributo identificador o clave (código asociado a 
cada información que permite su referencia) y la información pro- 
piamente dicha, terdremos una sucesión n ininterrumpida de pare- 
jas (véase figura 1). 


1 Figura 1.—Estructura secuencial. 
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El problema de la búsqueda de una información particular 
puede resolverse de varios modos: 

e Búsqueda completa; se tiene acceso a cada registro, me- 
diante una exploración, hasta encontrar la clave deseada o 
hasta recorrer todo el archivo. La longitud media de bús- 
queda, si N es el número de informaciones contenidas en 
el archivo, es (N+1)72. 

e Búsqueda en serie, se exige que el archivo esté ordenado 
por valores crecientes de la clave y se accede de forma se- 
cuencial a los datos hasta encontrar la clave buscada o bien 
una clave mayor que ella. La longitud media de búsqueda 
es N/2. 

e Búsqueda binaria; también en este caso se requiere que el 
archivo esté ordenado. La búsqueca se realiza por sucesi- 
vas bisecciones del archivo, por lo que a cada paso se ac- 
túa sobre un número de datos igual a la mitad del paso an- 
terior. Se comienza por comparar la clave buscada con la 
que se encuentra a la mitad del archivo, si ésta es mayor 
se desecha la segunda mitad del archivo y si es menor se 
desecha la primera mitad. En el segundo paso se busca la 
clave que se encuentra a la mitad de la nueva parte de da- 
tos y se procede como en el paso anterior hasta encontrar 
o no el elemento. Este método es muy rápido y eficiente 
porque el número máximo de accesos para encontrar una 
clave, o para establecer que no existe, es Logz(N); por ejem- 
plo, para 1.024 registros el número máximo es 10. 


La estructura secuencial presenta unas notables ventajas de 
sencillez de gestión y de ocupación de memoria, no exigiendo in- 
formaciones suplementarias para la búsqueda del dato. Cón la 
búsqueda binaria se tiene también un acceso muy rápido, pero 
las operaciones de actualización son algo complejas, por cuanto 
la introducción de un nuevo registro exige una reordenación de 
todo el archivo: o una fusión de los nuevos datos. Existen, sin em- 
bargo, varios algoritmos muy eficaces de ordenación (BUBLE- 
SORT, HEAPSORT, QUICKSORT, etc.). 


Estructuras aleatorias 


Las estructuras aleatorias, es decir, aquellas en las que no exis 
ciones de los diversos datos, obtienen 


te relación entre las direc 
directamente, a partir de las claves de acceso, las informaciones 
sobre la dirección del elemento. 


Existe, pues, una “función de acceso” que permite obtener la 
dirección de la clave. Hay varios métodos de correlación: 


e Método de diccionario: permite el acceso-al registro me- 

diante la previa lectura de la dirección en una tabla; es de- 
cir, se crea una matriz de correspondencia entre clave y di- 
rección. Se busca la clave en la tabla y se extrae también 
la dirección de la información correspondiente (véase figu- 
ra 2). 
También es posible la subdivisión del archivo en varios 
subarchivos, con el almacenamiento de la clave más alta 
de cada subarchivo. La búsqueda se realiza primero en el 
diccionario, en el que se busca el subarchivo de pertenen- 
cia del dato, y luego en el subarchivo mediante uno de los 
métodos vistos para las estructuras secuenciales. 

e Método de cálculo o direccionamiento Hash: permite la uti- 
lización de archivos de acceso directo; la asociación clave- 
dirección se realiza mediante un algoritmo que extrae de 
la propia clave la dirección del dato correspondiente. El in- 
conveniente de este método es encontrar un algoritmo que 
proporcione un resultado uniformemente distribuido, de 
modo que no se produzca una superposición de registros 
y que no se tengan grandes zonas vacías. 


archivo 


diccionario 


clave 


clave 


MN Figura 2.—Estructura aleatoria; método del diccionario. 
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Algunos algoritmos HASH se basan, por ejemplo, en: la di- 
tección viene dada por un subconjunto de bits de la clave; la 
dirección es la suma, bit a bit, de diversos subconjuntos de bits de 
la clave y la dirección es un subconjunto de bits del cuadrado de 
la clave. 

Una vez elegido el algoritmo de cálculo se trata de elegir un 
algoritmo de exploración del área direccionada para controlar me- 
jor la eventualidad de que dos o más claves den como resultado 
la misma dirección. Los más difundidos son los de: 


e Exploración lineal, caracterizada porque en caso de coli- 
sión se explora el archivo a partir de la dirección encon- 
trada de forma secuencial con un cierto paso >=1,. 

e Exploración pseudoaleatoria, caracterizada porque los in- 
crementos de dirección con respecto al generado por el al- 
goritmo no son constantes, sino que son producidos por una 
subrutina que genera números enteros de manera aleatoria. 

e Exploración cuadrática, es un método similar al de la ex- 
ploración lineal, con la salvedad de que después de cada 
colisión para una clave el incremento se aumenta en 1 (es 
decir, a la primera colisión se tendrá un incremento de 1, a 
la segunda de 2, etc.). La variación de este método para au- 
mentar su eficacia es la del cociente cuadrático, que con- 
siste en hacer variar el incremento con la clave, en lugar 
de que sea constante. 

e Método de corcatenación, mediante el cual, una vez en- 
contrada la dirección con el algoritmo, si está libre se al- 
macena el dato y si no lo está se construye una cadena 
(cola) de elementos correspondientes a dicha dirección. A 
continuación veremos qué son las cadenas. 


Estructuras de lista 


En la estructura de lista, los registros están unidos entre sí me- 
diante punteros que, en cada elemento, indican la dirección del su- 
cesivo (véase “igura 3). 

La lista tiene una cabecera que apunta al primer elemento y 
cada elemento apunta al siguiente, que puede estar ubicado en 
cualquier parte de la memoria (de masa o interna del ordenador) 
y no necesariamente en las proximidades, mientras que el último 
elemento tiene el puntero igual a 0. 

Las actualizaciones de una lista son bastante sencillas: 


e inserción de un elemento X en una lista (figura 4). Se puso 
el ejemplo de la inserción en la cabecera de la lista porque 
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CABECERA 


2]. HA LN 
ESE 


ES Figura 4.—Una lista antes y después de la inserción del elemento X. 


es más rápida, pero también una inserción en cualquier otro 
punto funciona del mismo modo. 

e Borrado de un elemento X de una lista (figura 5). 
Una posibilidad adicional de la estructura de lista es la lista 
bidireccional, en la que cada elemento contiene dos pun- 
teros, uno al elemento siguiente y otro al anterior (véase fi- 
gura 6). 


La búsqueda de un registro particular se realiza recorriendo 
la lista de la cabecera hasta encontrar el elemento deseado. Para 
el control de los elementos borrados y de los elementos libres 
para poder utilizarlos en las inserciones hay dos métodos princi' 
pales: 


e Lista libre: es una lista formada por elementos vacios; cuan- 
do se tiene necesidad de un elemento para insertar un re- 
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pz CHE 


IT Figura 5.—Una lista antes y después de eliminar el elemento X. 


CABECERA o E 


Y Figura 6.—Lista bidireccional. 


gistro, se le toma de la lista libre y cada elemento suprimi- 
do se inserta en ella de modo que se pueda reutilizar. 

e Carbage collection (“recogida de desechos”): los elemen- 
tos borrados no se tienen en cuente y, de forma periódica, 
un programa examina toda la memoria del archivo y reúne 
estos elementos no utilizados en una lista. 

La estructura de lista tiene el defecto de que se necesita 
memoria suplementaria para los punteros y de que el tiem- 
po de búsqueda depende, en gran medida, de la longitud 


de la lista. 


Estructuras más complejas 


Para los problemas que no tienen una solución eficiente con 
las estructuras hasta ahora vistas, se han estudiado otras estructu- 
ras más complejas. 


e Estructuras de listas invertidas; si se quisieran recoger gru- 
pos de informaciones en listas ordanadas según diversos 
parámetros (véase figura 7) se tendría un despilfarro de me- 
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ROJO 
BARCELONA 


VERDE 
ARQUITECTO 
MADRID 


AMARILLO 
VALENCIA 


cabecera de lista 


ordenada por 


nombre 


J cabecera de lista 
ordenada por 
ciudad 


Figura 7.—Informaciones relacionadas en listas ordenadas según al- 
gunos atributos. 


moria por cuanto que sería necesario un puntero por cada 
tipo de lista. Un método mejor es el de definir por cada ele- 
mento (en el ejemplo, por cada persona) un conjunto de 
atributos (título de estudio y ciudad) y se crea luego un ín- 
dice (véase figura 8) que contiene la identificación de los 
atributos y los valores correspondientes a cada elemento 
que tiene ese atributo, de modo que cada elemento se re- 
duzca a un registro único en una determinada dirección. 


INDICE 
ATRIBUTO DIRECCIONES 


INGENIERO 


ARQUITECTO 


MADRID 


VALENCIA 


BARCELONA 


- 133| AMARILLO : 


Y | Figura 8.—Estructuras de listas invertidas. 
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En este punto es posible realizar una búsqueda de los re- 
gistros según uno cualquiera de los atributos definidos, con 
el empleo de punteros introducidos en la tabla de índice. 
La ventaja de las listas invertidas es que permiten tener ac- 
ceso atodos los datos con la misma facilidad y con una ma- 
yor rapidez, por cuanto que se efectúan las búsquedas so- 
lamente en los índices y luego se realiza un acceso directo 
al registro buscado. 

e Estructuras en anillo: se trata de una ampliación de las lis- 
tas simples en las que el último elemento, en lugar de te- 
ner un puntero nulo, apunta al primer elemento de la lista. 
Permiten también ramificaciones de cualquier registro para 
individualizar otros datos en correlación con el mismo (fi- 
gura 9), con la construcción de las denominadas estructu- 
ras jerárquicas. Estas estructuras permiten representar rela- 
ciones complejas y la búsqueda de los datos a partir de 
cualquier punto del archivo. 

e Estructuras de listas múltiples: estas estructuras recuerdan 
mucho a las invertidas, con la salvedad de que en corres- 
pondencia con los atributos se almacena solamente la di- 
rección de comienzo de la sublista y su longitud; además, 


1] Figura 9.—Estructuras en anillo. 
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la memoria en la que están registradas las sublistas está 
subdividida en bloques (figura 10). Cada registro está di- 
reccionado por el número del bloque y por la dirección en 
su interior. Cuando se busca un elemento se recupera con 
un solo acceso el bloque completo, por lo que se puede 
ahorrar tiempo y, por consiguiente, es preferible almace- 
nar los datos, en la medida que séa posible, en un mismo 
bloque. En la figura 10 se muestra un ejemplo en el que las 
listas correspondientes a los atributos INGENIERO y BAR- 
CELONA son 4 y 3 respectivamente y comienzan una de 
ellas en el bloque 0 con el elemento 3 y la otra en el blo- 
que 0 pero con el elemento 5. Además, se ve que pueden 
existir elementos como el 7 que sean comunes a varias lis- 
tas, Las listas múltiples, con respecto a las listas invertidas, 
tienen la ventaja de ser de más fácil actualización y pro- 
gramación, pero traen consigo tiempos más largos de bús- 
queda debido al recorrido de las listas. 

e Estructuras en árbol: son de gran utilidad cuando se nece- 
sita que los datos estén organizados de modo jerárquico. 


INDICE 


ATRIBUTO 


BLOQUE O 


BLOQUE 1 


MN Figura 10.—Estructuras de listas múltiples. 
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Un árbol puede definirse como un gráfico conexo provisto 
de circuitos cerrados y constituido por un cierto número 
de nudos o nodos (las informaciones) conectados por lí- 
neas, con la propiedad de que dos nodos cualesquiera es- 
tán unidos por un solo camino y de que un árbol con N no- 
dos contiene N-1 líneas. 

El primer nudo se denomina raíz. Un árbol se llama binario 
si a partir de cualquier nudo salen, como máximo, dos lí- 
neas o ramas (figura 11). Cada nudo en un árbol binario pue- 
de representarse como el conjunto del dato junto con los 
punteros de las dos ramas derecha e izquierda (figura 12). 
El recorrido de un árbol binario (“vista de un árbol”) puede 
realizarse de tres modos: 


— Orden previsto: examen del nudo raíz, examen del sub- 
árbol de la izquierda y examen del subárbol de la de- 
recha (en el ejemplo, el orden sería ABDECFGH); 

— Orden simétrico: examen del subárbol de la izquierda, 
examen del nudo raíz y examen del subárbol de la de- 
recha (en el ejemplo, DBEAFCHG); 

— Orden diferido: examen del subérbol de la izquierda, 
examen del subárbol de la derecha y examen de la raíz 
(en el ejemplo, DEBFCHGA). 


Una estructura en árbol binario tiene la propiedad de que el 
subárbol izquierdo de cada nudo contiene solamente datos cuya 


E 
ISA 
! Ñ 


W Figura 11.—Estructura en árbol. 


ES Figura 12.—Posible representación interna del árbol de la figura 11. 


clave es inferior a la del dato de dicho nudo, mientras que el 
subárbol derecho contiene solamente claves mayores. La búsque- 
da o el almacenamiento es bastante simple, por cuanto que en 
cada nudo resulta inmediata la elección del camino a seguir hasta 
encontrar el dato o una rama libre en donde almacenarlo. 
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APLICACION A UN ORDENADOR PERSONAL | 


n ordenador personal está constituido por unos 
componentes que tienen las mismas funciones 
lógicas que en un ordenador tradicional, es de- 
cir, unidad central, dispositivos de Entrada/Sa- 
lida, (E/S o, en inglés, 1/0) y memoria, en par- 
te de acceso directo (RAM: Random Access 
Memory) y en parte de masa. Los costes mo- 
derados y el empleo al que está dirigido el or- 
[PATA denador personal han orientado a los fabrican- 
les a la elección de CPUs de 8 bits generalmente. Por consiguien- 
le, la memoria directamente direccionable varía entre 4 y 64 
Kbytes, por lo que considerando que una parte de esta capacidad 
de memoria es utilizada para funciones inteznas (intérprete, siste- 
ma operativo, etc.) no queda memoria suficiente para tratar el nú- 
mero de informaciones necesarias para una base de datos en RAM, 
salvo para archivos mínimos. 

Es pues inevitable la necesidad de emplear soportes de me- 
moria externos, los cuales habrán de tener un acceso relativamen- 

pido y, sobre todo, una lógica de control que deberá permitir 
el acceso directo a la información elemental puesto que, de no 
ser así, las lecturas secuenciales tendrían un efecto desfavorable 
sobre los tiempos. No consideramos, pues, la hipótesis de utilizar 
un soporte secuencial tal como las cintas magnéticas, sino sola- 
mente los discos flexibles, que consideramos los soportes más vá- 
lidos para una aplicación informativa ligada con la base de datos. 
En la mayor parte de los ordenadores personales, las unidades de 
disco pueden admitir entre 180 y 500 Kbytes en línea, es decir, 
con toda la información con posibilidad de acceso directo sin in- 
lervención manual para cambio de disco. 
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Volvamos en este punto a los conceptos teóricos para cons- 
tatar cuánto y con qué resultados son aplicables a los ordenado- 
res personales los métodos anteriores. 


e Estructura secuencial: al ser la más simple sería aparente- 
mente la más adecuada para nuestro caso; sin embargo, al 
realizar informaciones con longitud variable, con el consi- 
guiente empaquetamiento de los datos, los tiempos de ac- 
ceso hacen pesado el tratamiento y las exploraciones pro- 
longadas dan lugar a mayores solicitudes de la unidad de 
masa. Estructuras de dicho tipo son preferibles para datos 
utilizables en bloques, es decir, una serie de datos que sean 
objeto de lectura, tratamiento y escritura siempre en con- 
junto. 

e Estructura aleatoria: Para los ordenadores personales que 
permiten el acceso directo al registro en disco, esta solu- 
ción resulta óptima por cuanto que el proceso necesario 
para obtener la dirección de la clave no es problemático 
en absoluto y el acceso a una información individual se 
hace casi inmediato. El método del diccionario exige ma- 
yor espacio en disco para el almacenamiento de los pares 
clave-dirección, que pueden estar todos ellos en memoria 
o bien en disco en el momento de su proceso. En el primer 
caso resulta necesario cargar todo el diccionario en memo- 
ría al comienzo, con lo que utiliza los tiempos de las bús- 
quedas sucesivas; en el segundo caso se puede efectuar 
una búsqueda binaria directamente en el disco, mantenien- 
do el diccionario ordenado por claves. Esta organización, 
que es muy cómoda en las fases de búsqueda y modifica- 
ción de la información, es un poco más honerosa durante 
las introducciones y borrados, porque se necesitará en cada 
ocasión la reestructuración del diccionario. El método 
HASH, aunque sea algo problemático en el tratamiento de 
los bits para el cálculo de la dirección en BASIC, es bastan- 
te eficaz en lo que respecta a los tiempos de acceso cuan- 
do el archivo no está llenado en más del 75 por cien. Es- 
pecialmente simplificadas resultan todas las fases de ges- 
tión, pero tendrá una utilización deficiente la memoria de 
masa. 

e Estructuras de listas: para las aplicaciones con ordenador 
personal representan una sofisticación, pero pueden resul- 
tar de utilidad y eficacia si se conectan a una estructúra 
base de otro tipo, por cuanto permiten un ahorro de me- 
moria y una mayor sencillez de gestión. Por ejemplo, en la 
elaboración de un archivo médico resulta posible asociar 
a una serie de datos personales una lista de longitud varia- 
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ble, según el paciente de que se trate, que contenga los da- 
los correspondientes a las diversas visitas (figura 1). Los 
punteros pueden introducirse bien sea físicamente en el in- 
lerior del registro, bien por separado en el fichero corres- 
pondiente, bien conectados de forma lógica al que contie- 
ne las listas, como se realizará en el ejemplo propuesto. 

e Estructuras más complejas: aunque sea posible su realiza- 
ción no resultan recomendables para las aplicaciones prác- 
ticas en un ordenador personal. Ello es así porque el au- 
mento de dificultad en la gestión de los datos no está com- 
pensada por un suficiente incremento de eficacia. Además, 
los bancos de datos realizables no pueden tener una di- 
mensión que justifique una sofisticación de esta naturaleza. 


Definición de la aplicación 


El ejemplo de aplicación ha de ser de uso generalizado y que 
ntisfaga las exigencias más concretas con un solo programa, es- 
luciado de modo que sea flexible y adaptable. 

Consideremos algunas de las exigencias “fpicas: 


e El archivo de las historias clínicas consiste en la estructu- 
ración de un fichero, constituido por grupos de datos co- 
rrespondientes a cada paciente de los que no se conoce a 
priori su longitud, por cuanto que la historia clínica puede 
ser variable. El médico tiene necesidac de un instrumento 
que le permi:a: 


1) introducir nuevos pacientes 

2) actualizar la situación 

3) conocer todos los datos patológicos 

4) extraer relaciones y situaciones siempre actualizadas. 


16/1/80 E 28/3/80 " 15/7/78 li 


Figura 1.—Ejemplo de archivo de datos fijos, con listas conectadas 
a variables de datos. 
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e Para la gestión de ventas con agentes es preciso conocer; 
además de las informaciones generales sobre los volúme- 
nes de venta, informaciones más detalladas relativas a cada 
representante. Asimismo, podría ser interesante conocer 
estadísticas de venta por representante y por artículo. 

e La gestión de los contactos con posibles clientes prevé la 
definición de las características personales y la posibilidad 
de seguir el desarrollo de las negociaciones y de la adqui- 
sición de pedidos. 


Algo similar podría aplicarse a la gestión de órdenes, pedi- 
dos, etc. Todas las aplicaciones ilustradas tienen en común el he- 
cho de que las informaciones están constituidas por una parte fija 
o de base, a la gue se agregan informaciones suplementarias. En 
las fichas clínicas los datos base son las informaciones personales 
y los datos suplementarios, o auxiliares, los resultados de las di- 
versas visitas, 

Decidimos, pues, la conveniencia de trabajar en un archivo 
cuya estructura lógica esté constituida por un conjunto de grupos 
de datos principales a los cuales se pueden asociar cantidades va- 
riables de otras informaciones. 


Estudio de viabilidad 


Para poder realizar un estudio de viabilidad del programa es 
necesario coocer el sistema con el que trabajamos. 

El EUROPLUS de Apple Il está provisto de un intérprete Basic 
de coma flotante en ROM y de hasta 48 Kbytes de memoria RAM, 
en donde reside el programa del usuario y, si se utilizan los dis- 
cos flexibles, el sistema operativo de discos DOS que ocupa 10 
Kbytes. Hay posibilidades de conexión de hasta 12 unidades 
"floppy”, cada una de las cuales puede contener 116 Kbytes. Al 
ser el sistema operativo residente en cada disquete, se dispone 
de 100 Kbytes para su utilización. 

Lo anterior nos impone una limitación en el número de regis- 
tros almacenables en cada disco; al no querer (aunque sea posi- 
ble) gestionar ficheros multivolumen, estructuraremos el archivo 
base en un solo disquete y, por consiguiente, el número de regis- 
tros suceptibles de gestión será 100 K/longitud del registro. Al te- 
ner la posibilidad de acceder en modo directo a los registros; por 
número de orden, podemos utilizar para el archivo base la estruc- 
tura aleatoria con el método del diccionario, construyendo un ín- 
dice que contiene todas las claves de acceso y la dirección co- 
rrespondiente, dada como número del registro. Además, es posi- 
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hal» la realización de una estructura de listas y podemas construir 
na o varias listas que terminen en un registro base. 

1 DOS 3.2 permite la utilización de fichero, sin tener que de- 
Im las características físicas (tales como longitud de registro, es- 
pelo, etc.), por lo que resulta sencillo emplear ficheros de des- 
Vipaión de la “personalización” y del estado del sistema. 

sta asignación dinámica del espacio nos permite una nota- 
¡bilidad de configuración y podremos elegir entre diver- 
nes 


uctura global (figura 2) constará de: 


| OLMNEI 


há estr 


e Un archivo base, que contiene datos físicos no ordenados. 

e Un índice principal, que contiene las claves y las corres- 
pondientes direcciones de los registros base. Este fichero 
deberá mantenerse ordenado por claves crecientes. 

e Ocasionales índices secundarios para permitir el acceso a 
los registros base según otros campos. 

e Uno o varios archivos organizados en listas con conexión 
lógica a los registros base. 


Según las exigencias particulares, bastará “personalizar” la 
vonliguración, eligiendo el número de unidad a utilizar. Así pode- 
mos, en caso de que tengamos pocos registros base y no quera- 


INDICE REGISTRO BASE LISTAS 


anm20-O0OAmm=-0O 


INDICES ADICIONALES 


PAR 


AMFPZO-=0-0P PAN" 


nmzO-O0mI-O0 


D 
J 
R 
E 
c 
c 
1 
lo] 
N 
E 
Ss 


17] Figura 2.—Estructura general de nuestro archivo. 
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HEAPSORT 
E 
NO 
L = INT (NX/2) + 1 515 
R=NX 
Edd > sI 


14,% = 1X% (R) 
IAS =1XS (R) 
11% (R) =1X% (1) 
IXS (R) =1XS (1) 
R=R-=1 


RETURN 


LeL-1 
1A% =1X% (L) 
IAS =1XS (L) 


540 


IX% (1) =14% 
IXS (1) = IAS 


RETURN 


19% (1) = 14% 
IXS (1) =1AS 
> 
si 
si 
NO 


Figura 3.—Diagrama de flujo de la rutina HEAPSORT. Los números 
junto a algunos bloques se refieren a las líneas asociadas del listado. 
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mos Índices secundarios ni listas, ubicar todo el archivo en un solo 
dinquete. Para mayores necesidades, se podrá reservar el primer 
Winceo para el archivo base y el índice principal, mientras que las 
lintas y los índices secundarios irán en el segundo disco. Asimis- 
mo, los índices secundarios podrán ser objeto de gestión con el 
empleo de una tercera unidad. El hecho de tener las listas en una 
tinidad especializada permite disponer de más grupos de listas 
hor cada registro base, con el simple cambio del disquete de la 
unidad. Por ejemplo, es posible asociar al mismo archivo base 
nas listas mensuales. 


Rutinas de utilidad práctica 


En el curso del estudio técnico y de viabilidad, se hizo alu- 
sión a la necesidad de ordenación y de búsqueda binaria. Ahora 
hacemos mención de las rutinas que ordenan un vector de N ele- 
mentos y que realizan la búsqueda binaria en tal vector. Hemos 
vlegido dos rutinas cuyos algoritmos fundamentales son debidos 
11 Knuth. 

leapsort (figuras 3 y 4) es uno de los algoritmos más rápidos; 
liene la característica de emplear un tiempo casi constante cual- 
quiera que sea la configuración inicial del vector. El proceso se 
uubdivide en dos partes: 


LOREM HRERRAIR AO Ea 
REM Y SUBRUTINA DE ORDENACIÓN 4 

y REM 4 EJEMPLO y 

DREN IARERRERIRI ARE qEriaRArRRerd 

510 1F NX=1 THEN RETURN 

015 L=INT(NX/2)+1;R=NX 

000 J1F L)L THEN L=L-1:PA=P1Z(L);60T0 540 
S PA=PILIR)SPIZ(R)=P1%(1):k=R-1 

530 1F R=L THEN PIXZ(1)=PA: RETURN 

40 J=L 

145 1=J:3=233 

150 1F J)R THEN PIZ(1)=PA:G0TO 52 

155 TF J<R THEN GOSUB 600 

160 TF IXSIPA) € IXS(PIZ(D)) THEN PIC =PI%(J):G0T0 545 

565 PIZCO=PA:60T0 52 


J Figura 4.—Listado de la rutina HEAPSORT. 
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e Una fase preparatoria rápida, en la que se construye un 
“heap” (“montón”). 
e Una fase sucesiva de ordenación propiamente dicha. 


La rutina ordena un vector 1X$ de claves alfanuméricas que 
contiene NX elementos, manteniendo la asociación con el corres- 
pondiente vector IX% de direcciones (enteras). El flujo no resulta 
estructurado, lo que propicia una mayor velocidad de ejecución 
y un mayor espacio de memoria. 

El algoritmo de búsqueda binaria (figura 5), anteriormente 
descrito, actúa sobre el vector IX$, buscando en el mismo la clave 
suministrada en KM$ y dejando en F el resultado de la búsqueda 
y en P el índice del elemento, si existiera. 


SEARCH 


660 
F=1 (TROVATO) 


o) Figura 5.—Diagrama de flujo de la rutina por la búsqueda binaria. 
Los números se refieren a las líneas del listado asociadas. 
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600 REN EXRRERARS21ARALIRaD Agen iRizRdd 

602 REM 4 SUBRUTINA BUSQUEDA BINARIA $ 

603 REM 4 EJEMPLO i 

604 REM ERRERERRIASANIANAR ALIS IRAN IIA 

b10 F = 0: L= 1: N=NX 

630 1F N € L THEN RETURN : REM NO ENCONTRADO 
640 P.= INT (L+N /2) 

650 1F KN$ < 1X3 THEN N = P - 1:5070 630 

660 IF KMS > 1X4 THEN L = P + 1:6070 630 

670 F = 1:RETURN: REM ENCONTRADO 


>] Figura 6.—Listado de la rutina para búsqueda binaria. 
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mm 


na vez conocidos los criterios generales de la 
estructura de datos, descritos en los dos pri- 
meros capítulos, vamos a profundizar en el es- 
tudio de la viabilidad para definir la arquitec- 
tura de la base de datos sobre la cual elaborar 
el programa de gestión. En este capítulo ten- 
dremos que ser necesariamente más prácticos 
y utilizar los instrumentos de hardware-software 

; disponibles en el ordenador personal, en nues- 
tro caso concreto del Appel II Plus. De la enojosa teoría pasamcs 
al diseño lo que es ciertamente más estimulante. 


El D.O.S. Apple 


Además del lenguaje de programación BASIC es necesario 
conocer cuáles son las posibilidades funcionales del sistema Ap- 
ple en el tratamiento de la información en los discos flexibles. 

El sistema objeto de examen tiene una estructura de hardware 
flexible y ampliable, disponiendo de ocho ranuras (“slots”) de sa- 
lida no dedicadas a la conexión de periféricos específicos, la ex- 
cepción son la ranura o slot O, que está concebida para expansio- 
nes del lenguaje, y la número 7, reservada a la tarjeta PAL para 
visualización de colores. Las seis ranuras restantes pueden utili- 
zarse indiferentemente para conectar impresoras, unidades para 
discos y otros tipos de periféricos. Cada interface para disco fle- 
xible puede controlar dos unidades. Para tener acceso a las infor- 
maciones residentes en un disco es necesario, en caso de que 
puedan detectarse ambigúedades, definir lo que se denomina ra- 
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nura y unidad de disco de pertenencia. Además, en un disco fle- 
xible pueden coexistir informaciones relativas a programas alma- 
cenados, zonas de memoria en formato binario y ficheros de da- 
tos de tipo secuencial o aleatorio, es decir, con subdivisión en re- 
gistros de longitud fija. Las modalidades de tratamiento son dife- 
rentes para cada categoría; para nuestros fines, será suficiente co- 
nocer el tratamiento reservado a los programas Applesoft y a los 
ficheros de datos. 

Cada grupo de informaciones, o ficheros, se identifica por un 
nombre de 30 caracteres como máximo y así se puede efectuar 
la llamada de programas o tener acceso a los archivos directa- 
mente por su nombre, 

La gestión de los programas es especialmente sencilla: des- 
pués de haber escrito el programa en la memoria del sistema me- 
diante el teclado se le puede grabar escribiendo SAVE<nombre>, 
cargarlo desde el disco a la memoria del ordenador Apple escri- 
biendo LOAD<nombre>, ejecutarlo escribiendo RUN<nombre> 
o simplemente RUN si el programa está ya en memoria. 

Los ficheros de datos (texto) se dividen en dos categorías; 


e Ficheros secuenciales, en los cuales las informaciones in- 

dividuales están dispuestas de forma consecutiva y sepa- 
radas por un carácter de fin de campo CR, Carriage Return 
(Retorno del carro) (figura 1). 
En tal caso, al tener que cambiar un dato por otro de lon- 
gitud mayor, será necesario volver a escribir todo el fiche- 
ro. Por el contrario, un fichero secuencial optimiza el espa- 
cio en disco y puede ser de utilidad para almacenar pará- 
metros fijos, definidos en una ocasión y actualizados sólo ra- 
ras veces. 

e Ficheros aleatorios (file random), en los cuales el conjunto 
de datos está subdividido en registros de longitud fija que 
contienen uno o varios campos separados también por un 
retorno del carro (figura 2). Para actualizar un dato es sufi- 
ciente volver a escribir el registro correspondiente; ade- 
más, es posible tener acceso directo a un registro por su 
número, sin tener que explorar todos los datos de forma se- 
cuencial. 


My" 1.—Ejemplo de fichero secuencial. 
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BYTES LIBRES 


y 


REGISTRO REGISTRO 


7) Figura 2.—Ejemplo de fichero aleatorio de 12 bytes. 


Para el tratamiento de los ficheros de datos, definiremos cua- 
Iro funciones esenciales: 


e OPEN: permite abrir un flujo informativo con un fichero re- 
sidente físicamente en un cierto disco y, además, si la es- 
tructura del fichero es de tipo aleatorio, permite definir tam- 
bién la longitud del registro. 

Ejemplo: 

Secuencial OPEN<nombre> 
S<número ranura> 
D<número unidad> 


Aleatorio OPEN<nombre> 
L<long. reg.> 
S<número ranura> 
D<número unidad> 


e READ: permite indicar a partir de qué fichero se efectuará 
la siguiente lectura de datos con la sentencia INPUT de BA- 
SIC. En el fichero secuencial la primera lectura (input) será 
la relativa al primer dato y las sucesivas se referirán a los 
datos consecutivos. En un fichero aleatorio el criterio es 
idéntico pero relativo al registro individual, es decir, es ne- 
cesario definir en la función READ también el número del 
registro en que se ha de efectuar la lectura. 

Ejemplo: 


Secuencial READ<nombre> 


Aleatorio READ<nombre> 
R<núm. reg.> 
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e WRITE: permite identificar en qué fichero se efectuará la si- 
guiente escritura de datos con la sentencia PRINT de BA- 
SIC. También en este caso las escrituras son consecutivas 
desde el comienzo del fichero o enésimo registro depen- 
diendo del tipo de fichero secuencial o aleatorio. 
Ejemplo: 


Secuencial WRITE<nombre> 


Aleatorio  WWRITE<nombre> 
R<núm. reg.> 


e CLOSE: permite cerrar un flujo informativo y asegura la es- 
critura de las informaciones anteriores. En tal caso, no exis- 
ten diferencias sintácticas entre ficheros secuenciales y 
aleatorios. 

Ejemplo: 


Secuencial CLOSE<nombre> 
Aleatorio  CLOSE<nombre> 


Todos los comandos de control de flujo antes citados, para 
ser identificados y ejecutados por el DOS (sistema operativo de 
control de disco) deberán aparecer como argumento de una sen- 
tencia PRINT precedidos ps el carácter de control CONTROL-D, 
equivalente a CHR$(4). El sistema operativo de disco (DOS) de 
Apple permite muchos otros comandos de control, pero conside- 
ramos suficientes los cuatro descritos para la gestión de la base 
de datos objeto de examen; los lectores interesados por esta ma- 
teria podrán encontrar una exposición exhaustiva en el manual 
DOS 3.2 Apple. Concluimos con un ejemplo completo de senten- 
cia BASIC de control DOS: 


10 PRINT CHR$(4)“WRITE PULPO,R12" 


Estructuración de la base de datos 


Como se comentó con anterioridad el objetivo que se persi- 
gue es organizar un archivo de base de datos accesible con una 
clave preferencial y, supongamos, cuatro claves secundarias, que 


pueda conectarse a un segundo archivo controlado de listas, en 
correlación lógica con los registros de base. Existen, pues, en un 


primer análisis, los archivos lógicos siguientes: 
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e Un archivo Base con el índice principal (MASTER INDEX) 
y los índices secundarios correspondientes. 

e Un archivo de lista completo de los datos necesarios para 
la gestión. 


Detengámonos en el archivo Base tratando de averiguar cómo 
puede estructurarse desde el punto de vista físico. 

Todas las informaciones del archivo Base, es decir, los datos 
correspondientes a los diversos campos que constituyen los di- 
ferentes registros, pueden ser recogidas en un fichero que llama- 
remos MASTER FILE(MST.FL) de tipo obviamente aleatorio para fa- 
cilitar las operaciones de escritura, lectura y modificación. La lon- 
gitud del registro Base será, pues, la suma de las longitudes de 
los correspondientes campos con el correspondiente carácter CR 
de final de campo (figura 3). 

Para hacer más rápidas las operaciones de acceso, introduc- 
ción y eliminación del registro Base no mantendremos dicho fi- 
chero ordenado, sino que tendremos acceso al mismo utilizando 
un diccionario de claves-punteros que constituye un fichero MAS- 
TER INDEX (o MST.INX) que, a diferencia con el anterior, manten- 
dremos siempre ordenado y presente tanto en la memoria como 
en disco (figura 4). 


CLAVE 
PRIORITARIA 


1 CAMPO 2.9 CAMPO 3" CAMPO 4.2 CAMPO 5.2 CAMPO 
1.% REGISTRO 
2.2 REGISTRO 
3." REGISTRO 
4. REGISTRO 
5,9 REGISTRO 
5.4 REGISTRO 
7.2 REGISTRO 
8.2 REGISTRO 
9.2 REGISTRO 


7 a 3.—Estructura aleatoria del fichero MASTER FILE. 


MASTER INDEX MASTER FILE 
ACCESO 


CAMPO 1 PUNTEROS CAMPO 1 CAMPO2 CAMPO 3 


NX NUMERO ELEMENTOS VALIDOS 
E 
7 
hE 


EA ELEMENTOS ASIGNADOS 


cle 
oa 
3135|> 
mim 


LIBRE 


EN NUMERO MAXIMO DE ELEMENTOS 


EN Figura 4.—Acceso con el método del diccionario. 


Los dos ficheros están físicamente separados aunque, desde 
el punto de vista lógico, constituyen un archivo único e indivisi- 
ble, teniendo que acceder siempre al diccionario para conseguir 
de forma ordenada las informaciones del archivo Base. De este 
modo sólo es posible el acceso mediante clave, es decir, por me- 
dio del primer campo del registro Base, supuesto como identifi- 
cador prioritario. 

Nada nos impide construir posteriores diccionarios clave- 
puntero, en donde la clave pueda ser uno cualquiera de los cam- 
pos del registro Base; consideramos que cuatro índices auxiliares 
pueden ser suficientes (figura 5). 

Por supuesto, en una estructura multiacceso de este tipo re- 
sultan complejas y largas las fases de introducción y eliminación, 
teniendo no solamente que actualizar el registro único del MAS- 
TER FILE y reordenar el MASTER INDEX, sino efectuar también 
una operación análoga con todos los ficheros índice auxiliares. 
Para hacer más rápido el procedimiento, tendremos siempre ac- 
tualizado el ficher MASTER INDEX y permitiremos la actualización 
de los índices auxiliares solamente con un comando explícito. 
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CLAVE PUNTERO 


INDICE (INDEX 1) 
CORRESPONDIENTE [| | 
AL.CAMPO 1 


MASTER FILE 


CAMPO 1 


CAMPO 2 CAMPO 3 


INDICE 2 
CORRESPONDIENTE 
AL CAMPO J 


MASTER INDEX 
CORRESPONDIENTE 
AL CAMPO 1 


INDICE 3 
CORRESPONDIENTE 
AL CAMPO K 


INDICE 4 Ñ 
CORRESPONDIENTE 
AL CAMPO L 


MN Figura 5.—Archivo multiacceso con el método del diccionario. 


La estructura del archivo Base comienza a tomar consistencia 
y nos falta ahora un fichero auxiliar en donde almacenar el estado 
de la base de datos, es decir: 


e El número de registros válidos NX. 

e | El número de elementos asignados EA, que es la suma de 
los elementos válidos y de los eliminados. La intercalación 
prevé ocupar el espacio que queda disponible a partir de 


los eliminaciones y solamente al agotarse este último asig- 


nar nuevos elementos. 
e La existencia o no de un archivo controlado de listas, con 
su definición por un indicador de cadena FL (flag-link). 
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e El tipo de impresora conectada PT (0 para conexión en pa- 
ralelo, 1 para conexión en serie). 

e El número de columnas suceptibles de control por la im- 
presona CN. 

e El indicador de disco lleno DF. 

e El número del campo asociado al primer índice auxiliar IA 
(1,0). 

e La longitud de la clave (ocasionalmente truncada) corres- 
pondiente al primer índice auxiliar IA (1,1). 

e La validez del primer índice auxiliar IA (1,2) 


y otras informaciones análogas correspondientes a los tres últimos 
casos, pero relativas al índice auxiliar segundo, tercero y cuarto, 

Son, pues, en total 18 los parámetros que permiten determinar 
de forma estable el estado del archivo y dichos parámetros se al- 
macenarán en un fichero secuencial que denominaremos BASE 
DATOS CONTROL o, de forma abreviada BD.CTRL. En resumen, 
para la gestión de la base de datos tendremos: 


BDCTRL : control de la base de datos, fichero secuencial. 


MSTINX : diccionario prioritario, fichero aleatorio. 
MST.FFL  : archivo de datos, fichero aleatorio. 

INDEX.1 : primer diccionario auxiliar, fichero aleatorio. 
INDEX.2 : segundo diccionario auxiliar, fichero aleatorio. 
INDEX3  : tercer diccionario auxiliar, fichero aleatorio. 
INDEX4  : cuarto diccionario auxiliar, fichero aleatorio. 


Una vez definida la estructura del archivo Base, vamos a con- 
siderar ahora la forma en que se puede cor:seguir una gestión de 
lista y cómo estructurarla para un control fácil y rápido. 

Á partir del estudio teórico anteriormente desarrollado se de- 
duce que una gestión de lista exige punteros que conecten los re- 
gistros entre sí y con la cabecera de la lista. En nuestro caso, la 
cabecera de la lista es lógicamente cada registro base individual 
y de aquí la necesidad de asignarles un puntero. No obstante, una 
solución de tal naturaleza obliga a asignar espacio en el fichero 
MASTER FILE, incluso en las aplicaciones en las que se quiera re- 
nunciar a la gestión de listas. 

En este caso, se prefiere una solución alternativa que, además, 
permite hacer más rápida la gestión sucesiva. En vez de tener los 
punteros dirigidos a las listas en el interior de los registros pode- 
mos considerar su extracción y la elaboración de un fichero alea- 
torio (que denominaremos LINK ENTRY o LNK.ENTRY), constitui- 
do por un vector cuyos elementos son las cabeceras de las listas. 
Para comprobar la existencia (en el archivo Listas) de registros 
en correlación con el i-ésimo registro Base, bastará leer el i-ésimo 
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elemento del vector LINK ENTRY, si este último es O no están co- 
nectados los registros y, en caso contrario, el número constituirá 
el puntero al primer registro de la lista asociada. 

Una lista monodireccional está constituida por pares registro- 
puntero en donde este último indica el par sucesivo en correla- 
ón; en esta ocasión preferimos subdividir dicho acoplamiento ló- 
gico en un vector de punteros (fichero LINK POINTERS o LNK.PTR) 
y un fichero aleatorio de registro, LINK FILE o LNK.FL, que contie- 
ne las informaciones adicionales del registro Base de pertenen- 
cia. Resumimos este en la figura 6. 

No se trata de una gestión muy sencilla, lo admitimos, pero 
volveremos más adelante sobre esta materia, 

Nos falta todavía una serie de parámetros que permiten co- 
nocer la estructura del registro correspondiente al fichero LINK, 
es decir, el número de campos y para cada uno de ellos: 


e Nombre del campo. 
e Tipo del campo (1 alfanumérico, 2 numérico). 
e Longitud del campo. 


Este conjunto de parámetros constituirá un fichero de control 
del LINK (cadena) que denominaremos LNK.CTRL. 

Resumiendo, el archivo de listas estará constituido por los fi- 
cheros siguientes: 


MASTER FILE LINK FILE 


REG. CAD. 4,2 


REG. CAD. 4.1 

REG. CAD. 31 

REG.CAD, 11 

REG. CAD. 12 
1 1 
1 y 
AS 

: REG. CAD. 13 

¡ REG, CAD, 21 

REG. CAD, 144 

REG. CAD. 15 

REG. CAD. 322 


Me] Figura 6.—Estructura del archivo controlado de listas. 
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LNKCTRL : fichero secuencial que contiene los paráme- 
tros. 

LNKENTRY: fichero aleatorio que contiene el vector de ac- 
ceso a las listas (cabeceras). 


LNKPTR  : fichero aleatorio que contiene el vector del 
puntero de gestión de lista. 
LNK.FL : fichero aleatorio que contiene los registros 


controlados de lista. 


Hemos definido la estructura del archivo Base y del archivo 
controlado de listas, pero nos falta todavía la definición de algu- 
nos parámetros tales como: 


e El número máximo de registros base admitidos. 
e El número de los campos del registro base y para cada 
campo: 


— El nombre del campo. : 
— El tipo del campo (1 alfanumérico, 2 numérico), 
— La longitud del campo. 


Además, podría ser interesante "parametrizar” también la po- 
sición y organización física de los ficheros, almacenando para cada 
uno: 


e El nombre del fichero. 

e La longitud del registro (0 para secuencial). 
e La ranura (“slot”) de pertenencia. 

e La unidad de disco de pertenencia 


elaborado luego de forma automática las correspondientes cade- 
nas de comando DOS. 

Introduciremos dicho conjunto de parámetros en un posterior 
fichero secuencial (SISTEMA CONTROL o SIST.CTRL). Este fichero 
residirá siempre en la ranura 6, unidad 1, y será el único fichero 
fijo, a partir del cual se puede definir cualquier configuración y 
asignación física de la base de datos. 

Para optimizar el programa definiremos para cada comando 
OPEN, READ, WRITE, CLOSE unos vectores 0$(), R$O, WS(O y CS(, 
para poder ejecutar el comando en el fichero deseado de forma 
directa. Por ejemplo, PRINT D$; O$(I), en donde l es el índice que 
sirve para indicar el fichero correspondiente, según la clave mos- 
trada a continuación. Es cierto que la "parametrización” hace me- 
nos legible el listado, pero se obtiene una notable versatilidad y 
sencillez de gestión. 
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SIST.CTRL 


MST.INX 
MST.FL 
BD.CTRL 
LNK.CTRL 
LNK.ENTRY 


LNK.PTR 


LNK.FL 

INDEX. 1 
INDEX.2 
INDEX.3 
INDEX.4 


O0o0XD y PUN-=0 


> 


Control del sistema de gestión completo (secuen- 
cial). 

Indice maestro o diccionario principal (aleatorio). 

Archivo base (aleatorio). 

Control de la base de datos (secuencial). 

Control del archivo controlado de listas. 

Vector de conexión cel archivo base a las listas (de 
carácter aleatorio). 

Vector de los punteros para gestión de las listas (de 
carácter aleatorio). 

Archivo controlado de listas (de carácter aleatorio). 

Primer índice auxiliar. 

Segundo índice auxiliar. 

Tercer índice auxiliar. 

Cuarto índice auxiliar. 


| Figura 7.—Ficheros que constituyen la estructura de la base de datos. 
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EL PROGRAMA 


na vez definida la estructura no queda más que 
proceder a un análisis "top-down” de arriba a 
abajo del programa, que subdividiremos en 
dos partes bien distintas: 


e Configuración del sistema, o SETUP. 
e Gestión de BASE DATOS, o BD. 


La primera permitirá configurar el sistema, es decir, definir el 
formato del archivo y, en el caso del MASTER FILE, a cuántos cam- 
pos constituyen el registro y cuáles son los nombres, tipos y lon- 
gitudes a ellos asociados. Se trata de definir los parámetros con- 
tenidos en el SIST.CTRL sin, por supuesto, cargarlos a mano. Lo 
mismo puede decirse con respecto a los ficheros BD.CTRL y 
LNK.CRTL. 

De este modo se puede personalizar la base de datos que, 
aparte de las funciones estándar, debe poder archivar direccio- 
nes, catálogos o tablas sin tener que tocar ninguna sentencia del 
programa. 

La segunda parte del programa permitirá, por el contrario, 
operar sobre el archivo preestablecido en las fases de: 


e Introducción de datos. 

e Borrado. 

e Búsqueda y modificación. 

e Listado, 

e Cambio de índice de búsqueda. 
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Las dos partes anteriores constituirán programas bien distin- 
tos, pero mutuamente llamables, puesto que condensarlos en un 
solo programa podría ser “crítico” para la memoria de 48K del 
Apple. 

La figura 1 representa cómo se controlará la base de datos. 
Una vez editados los dos avances faltarán los ficheros de control 
y por ello, al iniciarse el programa sin existir el fichero SIST.CTRL, 
se pasará el control al programa de CONFIGURACION DEL SIS- 
TEMA (SETUP), que permitirá configurar el sistema de gestión y, 
posteriormente, proceder a una nueva iniciación satisfactoria de 
la base de datos. 

Las limitaciones de espacio para esta sección no nos permi- 
ten desarrollar el programa de configuración del sistema (SETUP) 
y la gestión de la base de datos (BD) y, al tener que elegir, deci- 


DE DATOS | 


5 Figura 1.—Organización del programa de la base de datos. 
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dimos dedicarnos al programa de conf:guración del sistema, de 
modo que podamos encontrarnos en los siguientes capítulos en 
condiciones para cargar el programa de gestión, después de ha- 
ber asimilado el flujo y el listado del programa de configuración 
del sistema que nos disponemos a explicarles. 

Este modo de proceder está un poco'en contradicción con el 
método de exposición de “arriba-abajo'; en efecto, una vez defi- 
nida la estructura de los datos, y al tratarse de dos programas bien 
definidos cuyas interacciones se realizan solamente con la estruc- 
tura antes aludida, consideramos que es más agradable para el 
lector concentrarse en un desarrollo del programa de configura- 
ción del sistema llegando hasta la codificación para volver luego 
a la parte superior en los siguientes capítulos, con plena dedica- 
ción a la gestión de la estructura ya existente. 

Antes de continuar, es preciso que el lector tenga conoci- 
miento del hardware necesario: basta disponer de un ordenador 
Apple de 48K y, como mínimo, un disco flexible en la ranura 6 de 
la unidad 3. Por supuesto, si se quiere tener unos archivos algo 
voluminosos, con el riesgos de saturar el único disco, sería nece- 
sario pasar al nivel de 2 o 3 unidades. 


Definición de la base de datos 


El programa de configuración del sistema (SETUP), siguiendo 
el diagrama de flujo de la figura 2, se inicia en la línea 60000 con 
la llamada a una subrutina (62000) de inicialización de las varia- 
bles y con la lectura de dos ficheros del sistema, STRL.CCTRL y 
BD.CTRL. En las inicializaciones aparecen dos variables, RF y RS, 
que contienen la cantidad de memoria libre en el programa BD y 
en el programa SETUP, respectivamente; por supuesto, en el caso 
de que se hagan modificaciones en los programas, será necesario 
actualizar dichos valores. 

La primera vez que se inicia el programa no existirán estos 
ficheros y por ello en lugar de proseguir en secuencia y llegar al 
menú (60500) se activa ONERR GOTO 60050 que inicia la crea- 
ción de la base de datos. Esto no ocurriré en todas las demás oca- 
siones en que se ejecute el programa SETUP, puesto que se lle- 
gará directamente al menú que controla la posibilidad de una nue- 
va configuración parcial del sistema o de su ampliación. 

En la figura 3 podemos ver de qué modo se controla esta crea- 
ción inicial: vna vez que hemos entrado en la rutina de error se 
nos pregunta si el error verificado (cuyo código se encuentra en 
la dirección 222) es el que se esperaba, es decir END OF DATA 
(FIN DE DATOS), que es el mensaje emitido por el sistema ope- 
rativo de disco (DOS) cuando se trata de leer un fichero no exis- 
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6000 


INICIALIZACION 
DE LAS VARIABLES 


LECTURA DEL 
FICHERO SIST, CTRL 


LECTURA DEL 114] 
FICHERO DB.CTRL 
¿EXISTEN LO: 
FICHEROS? 
ensacion ve [41] 
LA BASE 


MENU PRINCIPAL 112) 
DE SETUP | 


T ] Figura 2.—Estructura del SETUP (Configuración del sistema.) 


tente. En caso afirmativo, se prosigue desactivando ONERR (por 
cuanto que ya no es necesaria) mediante la instrucción POKE 
216,0. 

Después de haber definido en dónde asignar la base de da- 
tos (1.1.1.1) y cuáles son los campos requeridos para cada regis- 
tro base (1.1.1.2), se pueden definir la longitud efectiva del regis- 
tro R(0) y R(1) del INDICE y de la base de datos (línea 60095). Po- 
demos escribir ahora el fichero SIST.CTRL (1.1.1.3) y proceder a 
su nueva lectura (1.1.3) para tener a nuestra disposición las cade- 
nas de control que crea la rutina de lectura, procediendo a escri- 
bir el fichero BD.CTRL (1.1.1.4) y, finalmente, preparar en disco el 
espacio para los ficheros MASTER INDEX (MSTINX) y MASTER 
FILE (MST.FL) (1.1.1.5). 

Después de esta asignación de espacio en disco, para cuya 
operación se puede tardar algunos minutos, se presenta la situa- 
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INDICA.CION si 
DEL TIPO 
DE ERROR 


¿MENSAJE 
"END OF DATA”? 


NO 


DEFINICIONES ASIGNACION 
BASE DE DATOS 


DEFINICIONES CAMPOS 
BASEDEDATOS 


ESTABLECER LONGITUD REGISTRO 


ESCRITURA FICHERO SIST, CTRL 


RELECTURA FICHERO SIST. CTRL 


ESCRITURA FICHERO BD. CTAL 


ESCRITURA DE LOS FICHEROS 
MASTER 


¿MODIFI- si 


CACIONES? 


NO 


ESCRITURA FICHERO SIST, CTRL 


ESCRITURA FICHERO BD. CTRL 


ay" 3.—Creación de la base de datos. 
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legs 
A 
00) 


¿o 
e 4 


ción, es dect el número máximo de registros suceptibles de con- 
trol: si la configuración no satisface, podemos modificarla todavía 
+ (en efecto, se puede volver a empezar anulando los ficheros maes- 
tros y volviendo a la definición de la asignación de la base de da- 
tos). Por el contrario, si todo es correcto, es escriben los ficheros 
SIST.CTRL (1.1.1.3) y BD.CTRL (1.1.1.4) definitivos. 
En la figura 4 vemos cómo se produce la definición de la asig- 
nación de la base de datos: ante todo leyendo los datos (instruc- 


ET Ey 


CARGA DE 
PARAMETROS 
PREFIJADOS 


DEFINICION 
UNIDAD DE LA 


BASE DE DATOS 
62300 REM PRIMERA VEZ 
62510 HOME: CN=80: RESTORE 
62520 FOR 1=0 TO 10:READ A$:NEXT 
62530 FOR 1=0 TO 10:READ RC) ¿NEXT 
62540 FOR I=0 TO 10: READ S(1)+NEXT 
62550 FOR 1=0 TO 10:READ DCI): NEXT 
62535 FOR 1=0 TO 9:READ EXI): NEXT 
625360 VATB 9:HTAB 9: INPUT "BASE DE DATOS EN UNIDAD; "¡A$: A=VAL (AS) 
62570 IF AC>1 AND AC92 THEN 62560 
62580 PRINT :HATB 22: INPUT "SEGURO? ";A$ 
62590 IF LEFTS(A$,1)<)"S" TREN 62560 
62600 FOR 1=0 TO2:D(1)=A: NEXT 


Figura 4 —Definiciones de la asignación de la base de datos: 
fujo y listado. 
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ENTRADA DE LOS CAMPOS 
IMPRESION CABECERA 


INTRODUCCION DEL NOMBRE DEL CAMPO 
1-ESIMO O MODIFICACION DEL VALOR ANT. 


INTRODUCCION DEL TIPO DEL CAMPO 
I-ESIMO O MODIFICACION DE LOS 
VALORES ANTERIORES 


¿MODI- 
FICACIONES? 


NO 


PREPARACION REGISTRO A ESCRIBIR PARA 
DIMENSIONAMIENTO ARCHIVOS 


63000 REM CONFIGURACION DEL SISTEMA 

63020 HOME:HTAB 18:PRINT "CONFIGURACION DEL SISTEMA" 

3030 HTAB 13:PRINT "CUANTOS CAMPOS?: “;:1F NC THEN PRINT NC; 
63040 IF NCANM OR NC<1 THEN 63020 

63050 VATB 2:HTAB 27:CALL -868;PRINT NC 
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63060 VATE 4:HTAB ¡1:PRINT "NOMBRE";sHTAB 21:PRINT "TIPO (A/N0";:HTAB 25:PRINT 
LONGITUD" 

63070 FOR I=1 TO NC 

63080 VATR I+S:CALL -868:1F 1>10 THEN HTAB 2 

63090 PRINT I; "CAMPO"; 

63100 HTAB 10: 1F LB$(1)<>"" THEN PRINT LBS(1); 

63110 RTAB 10: INPUT *"¡AS$ 

63113 1F A3="" AND LB$(1)="" THEN 63080 

63116 IF A$<9% THEN LBS(1.=AS 

53120 VTAB I+S:HTAB 10:PRINT LBS1I) 

63140 IF TP(ID)=1 THEN INPUT "ALFANUMERICO *;A$ 

63145 1F TP(1)=2 THEN INFUT " NUMERICO "¡AS 

63150 1F TP(I)=0 THEN INPU" " "¡As 

63160 VTAB I+S:HTAB 20 

63170 IF A$="A" THEN TP(ID=1:CALL -868:PRINT "ALFANUMERICO”:GOTO 63200 

53180 1F A$="N" THEN TP(1)=2:CALL -B68:PRINT *  NUMERICO "GOTO 63200 

63190 IF ASCÓ" DR TF(I)=0 THEN 63130 

63200 VTAB I+5:HTAB 33:CALL -868 

53210 IF LL(I)<>O THEN PRINT LEFTS(TS, 4-LEN(STRS(LL(ID))ILL(I);sHTAB 35 

63220 INPUT *";A$ 

63230 IR A$="" AND NOT LL(I) THEN 63200 

53240 1F A$<3"" THEN LLC =INT (VAL(LEFTS(AS,3))) 

63250 IF LL(ID<1 OR LL(I)>29 THEN 63200 

63260 VTAB I+S5:HTAB 3S:CALL -868:PRINT LEFTS(TS, 4-LENISTRSILL41))))5LL (1) 

63270 NEXT 

63280 LA=NC:FOR I=1 TO NC:LR=LR+LL (1) :NEXT 

53290 VTAB 21:PRINT "LONGITUD REGISTRO "LR" BYTES” 

63300 VTAB 23:HTAB 20: INPUT "MODIFICAR? *;A$ 

63310 1F LEFTS(A$,1)<>"N" THEN 63000 

63320" ST4="" 

63330 J=LR-1:1FJ235 THEN 4=253 

b3340 FOR I=1 TO J:ST9=STH+FRS: NEXT 

63330 RETURN 


1d Figura 5.—Definición de los campos: flujo y listado. 


ciones DATA que aparecen el final del listado) se asumen los pa- 
rámetros (nombre del fichero, longitud de registro, ranura, unidad) 
prefijados (líneas 62520-62550) y a continuación se pregunta en 
qué unidad se quiere ubicar el archivo principal de la base de da- 
tos y se procede a la sustitución del valor anterior por el actual. 

Más compleja es la definición de los campos en el interior del 
registro (figura 5): la rutina está estructurada de modo que se pue- 
dá, con las mismas instrucciones, definir un campo o modificar el 
valor anterior del mísmo, prosiguiendo con su ejecución hasta que 


48 


APERTURA DEL FICHERO SIST. CTRL 
ESCRITURA DEL NUMERO DE CAMPOS Y 
DEL NUMERO MAXIMO DE REGISTROS 

DE CADA CAMPO ESCRIBIR NOMBRE, 
TIPO Y LONGITUD 


DE CADA FICHERO ESCRIBIR NOMBRE, -ONGITUD 
DEL REGISTRO, RANURA Y UNIDAD DE DISCO 


CIERRE DEL FICHERO SIST. CTRL 


30000 REM ESCRITURA DEL SIST.CTRL (CONTROL DEL SISTEMA). 

30010 PRINT DS;01$"SIST.CTRL,Sb,D1" 

30020 PRINT DS;W1S8"SIST.CTRL' 

30030 PRINT NC", "EM 

30035 FOR 1=0 TO 9:PRINT E(I):NEXT 

30040 FOR I=1 TO NC:PRINT LBS(1)","TP 1)", “LL CIDNEXT 

30050 RESTORE 

30060 FOR 1=0 TO 10:READ AS:PRINT AS", "R(I)","50)", "ICIISNEXT 
30070 PRINT DS;C1$"SIST.CTRL" 

30090 RETURN 


T ) Figura 6.—Escritura del fichero SIST.CTRL: flujo y listado. 
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APERTURA DEL FICHERO SIST,CTRL, o co 
LECTURA DEL NUMERO DE CAMPOS Y REGISTROS 40040 
DE CADA CAMPO, LECTURA DEL NOMBRE, TIPO 40050 
Y LONGITUD 

DE CADA FICHERO, LECTURA DEL NOMBRE, 
LONGITUD DEL REGISTRO, RANURA, UNIDAD 40060 
DE DISCO Y COMPOSICION DE LAS CADENAS 40120 

'DE CONTROL OPEN, CLOSE, READ Y WRITE 
40130 


CIERRE DEL FICHERO SIST. CTRL 


40000 REM LECTURA DEL FICHERO SIST.CTRL 

40010 B$(0)="":B$(1)=",R" 

40020 PRINT D4;1$"SIST.CTRL,S6,D1” 

40030 PRINT D$sR19"SIST.CTRL” 

40040 INPUT NC,EM 

40043 FOR 1=0 TD 9: INPUT E(1):NEXT 

40050 FOR I=1 TO NC: INPUT LB$(1),TP(1),LL(T): NEXT 

40060 FOR 1=0 TO 10 

40070 L$="": INPUT AS,R(D,S(1),DCI)<1F RI) THEN L$=",L"+STRS(RIL)) 
40080 D$(1)=01$+A$+L$+",S"+STRS(S(1))+",D"+STRG(D(1)) 


50 


40090 R$(I)=R1$+A$+B5(R (170) 
40100 SCI) =N15+A$+B$(R(1)50) 
A0110 C3(1)=C19+AS 

40120 NEXT 

40130 PRINT D$;C1$"SIST.CTRL” 
40140 RETURN 


a] Figura 7. —Lectura del fichero SIST.CTRL: flujo y listado. 


no se obtenga una situación satisfactoria. Es importante destacar 
que esta definición, una vez confirmada, ya no será modificable a 
menos que se destruya todo el archivo; en efecto, en esta parte 
del programa, como se vio con anterioridad, se entra si, y sola- 
mente si, no existen los ficheros de sistema, es decir, la primera 
vez que se inicia el programa. 

De cada campo se define: 


e Nombre: con una longitud máxima de 9 caracteres. 
e Tipo: alfunumérico o numérico. 
e Longitud: comprendida entre 1 y 29. 


Para los campos de tipo alfanumérico se comprobará solamen- 
te la longitud, mientras que para los de tipo numérico se compro- 
bará también si son efectivamente números. Al comienzo de la ru- 
tina se pide el número de campos que se quiere constituyan el 
registro base; el límite máximo de este valor lo hemos estableci- 
do en 14, pero puede aumentarse a voluntad, con la simple preo- 
cupación de que luego, en el programa BD, se controle de forma 
adecuada la paginación de los datos en la pantalla. 

En el cálculo de la longitud del registro, se precisa tener pre- 
sente que dentro de cada campo, en el interior del registro, existe 
el carácter de retorno de carro (CR) separador y que, por consi- 
guiente, la longitud en bytes viene dada por la suma de las lon- 
gitudes de los campos más el número de campos (un retorno de 
carro cada uno). Al final de la rutina se prepara una cadena de ca- 
racteres a escribir en el disco para asignar el espacio necesario 
para el archivo. Esta cadena, constituida por caracteres no utiliza- 
bles de inmediato, tiene la misma longitud que el registro o, si 
este último tiene una longitud superior a 255 bytes, tendrá una lon- 
gitud de 255 bytes, siendo esta dimensión suficiente para asignar 
todo el espacio necesario. 

En la rutina se tiene una instrucción CALL-868; se trata de la 
llamada a una función del sistema que borra de la pantalla la línea * 
actual, desde la posición del cursor hasta el final de la línea. 
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En este punto podemos ver la estructura de los ficheros del 
sistema SIST.CTRL y BD.CTRL, que contienen los datos de descrip- 
ción del ambiente en el que operan los dos drogramas de confi- 
guración del sistema y de la base de datos. 

En las figuras 6 y 7 vemos la escritura y lectura del fichero 
SIST.CTRL; en las figuras 8 y 9 podemos observar la escritura y 
lectura del fichero BD.CTRL. En todo el programa se constata 
que la escritura del fichero SIST.CTRL va inmediatamente seguida 
por la rutina de lectura, por cuanto que esta última, además de 
leer los parámetros de diversos ficheros, construye las cadenas 
08(D, RS(D, WS(), C$(), para el acceso alos ficheros; por consi- 
guiente, cada vez que se varía uno de los parámetros de un fiche- 
ro (por ejemplo, el correspondiente a la ranura), es preciso vol- 
ver a ejecutar esta operación para poder tener el acceso corres- 
pondiente, 

Prosiguiendo con un estudio más profundo del programa, ve- 
mos en el diagrama de flujo de la figura 11 como se asigna el es- 
pacio en disco para los ficheros maestros. Inicialmente, se pregun- 
ta cuántos registros se quieren que constituyan el archivo base: 
en este punto, el programa comienza a escribir en el disco, al mis- 
mo tiempo en INDEX y en MASTER. En el primero se escribe una 
clave ficticia y el número de orden y en el segundo la cadena pre- 
parada en la fase de definición de los campos. 

Existen dos posibilidades: que en el disco elegido haya es- 
pacio suficiente para contener el archivo o que no. En esta segun- 
da hipótesis se activa ONERR GOTO 60360 que está contenida en 
la línea 60160 y partiendo del último registro que se ha tratado de 
escribir y procediendo hacia atrás se verifica cuál es el último par 
“index-master” escrito de forma correcta (ello porque el sistema 
operativo DOS escribe físicamente en el disco no para cada co- 
mando WRITE, sino solamente cuando ha llenado un buffer de 256 
bytes; y por consiguiente, a priori no se sabe en qué momento se 
verifica el error del disco lleno). En ambos casos, al llegar a la lí- 
nea 60280, en 'I” está contenido el número máximo de registros 
base. 

Se calcula ahora el número de claves suceptibles de conte- 
nerse en la memoria del programa BD, para que se mantengan en 
ella con el fin de tener un acceso más rápido. Como el número 
máximo de registros utilizables por la base de datos en la confi- 
guración elegida, se elige el mínimo entre el número de registros 
que son suceptibles de almacenamiento en disco y el número de 
claves contenida er. la memoria. En este punto, como se vió en el 
diagrama de flujo de la figura 3, también es posible hacer modi- 
ficaciones volviendo a comenzar desde el principio; por ejemplo, 
variando la longitud de la clave o de algunos campos, para au- 
mentar el número de informaciones suceptibles de control. 


52 


42000 


APERTURA DEL FICHERO BD. CTRL 


ESCRITURA DEL N.* DE REGISTROS BASE EXISTENTES 
REGISTROS BASE ASIGNADOS, INDICADOR 
PRESENCIA, FICHERO LINK, INDICADOR TIPO 
IMPRESORA, INDICADOR N.* COLUMNAS IMPRESORA, 
INDICADOR DISCO LLENO 


ESCRITURA INDICADORES RELATIVOS A 
LOS CUATRO INDICES AUXILIARES POSIBL3S 
CIERRE DEL FICHERO BD. CTRL 


42000 REM ESCRITURA DEL FICHERO BD.CTRL (CONTROL BASE DE DATOS). 
42010 PRINT DS;D$12) 

42020 PRINT DSzH$(2) 

42030 PRINT NX", "EA", "FL", "PT", "CN", "DF 

42040 FOR 1=1 10 4 

42050 PRINT 1A(1,0)",*1A(1,1)*,1A(1,2) 

42080 NEXT 

42070 PRINT D$;C$(2) 

42080 RETURN 


1] Figura 8.—Escritura del fichero BD.CTRL: flujo y listado. 


APERTURA DEL FICHERO BD. CTRL 


LECTURA DEL N.* DE REGISTROS EXISTENTES Y 
ASIGNADOS, INDICADORES DE PRESENCIA FICHERO 
LINK, TIPO IMPRESORA, COLUMNAS IMPRESORA Y 
DISCO LLENO 


LECTURA DE LOS INDICADORES RELATIVOS A 
POSIBLES INDICES AUXILIARES 


35000 REM LECTURA FICHERO BD.CTRL 
35010 PRINT D$;0$(2) 

35020 PRINT DS¿R$(2) 

35030 INPUT 1A(I,0),TA(1,1)14(1,2) 
35040 FOR I=1 TO 4 

35080 NEXT 

35070 PRINT DS;0$(2) 

35080 RETURN 


E Figura 9.—Lectura del fichero BD.CTRL: flujo y listado. 
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15700 REM ASIGNACION DE FICHEROS 

15710 VTAB 20: INPUT "CORRECTAS RANURA Y UNIDAD? *;A$ 
15720 FI A$="S" OR A$="" THEN RETURN 

5730 VATB 20:CALL -958:PRINT "RANURA "S(P1); 

15740 HATE 6: INPUT ""¡A$:5(P1)=VAL (AS) 

15750 VATB -20:HTAB 21:PRINT "UNIDAD";D(P1); 

15760 HATB 27: INPUT "";A$:D(P1)=VAL(AS):PRINT 

15780 HATB 23: INPUT "MODIFICACIONES? ";A$ 

15790 IF A$="5" THEN 15750 

15800 RETURN 


1] Figura 10.—Listado de la subrutina de asignación de ficheros. 


INTRODUCCION DEL N.? DE REGISTROS REQUERIDOS 
TENTATIVA DE ESCRIBIR EL N.* DE REGISTROS 
REQUERIDOS EN DISCO 


ERROR = 
DISCO LLENO 


COMPROBACION DEL ULTIMO | ¿9370 
PAR INDICE-REGISTRO 
ESCRITO CORRECTAMENTE 


VERIFICACION DE QUE LAS CLAVES DE 
LOS REGISTROS REQUERIDOS ESTAM 
EN LA MEMORIA 


VISUALIZACION DEL 
TIPO DE ERROR 


60280 
60290 


IMPRIMIR “BUENO”, 

ELEMENTOS MAXIMOS = 
ELEMENTOS QUE ESTAN 
EN DISCO 


EN MEMORIA 


DE) Figura 11.—Escritura del fichero FILE MASTER. 


60155 


60190 
60270 


ELEMENTOS MAXIMOS = 
ELEMENTOS QUE ESTAN 
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E 
é 


VARIABLE 


A 
AS 


El, MENU PRINCIPAL 


cabamos de definir la estructura inicial de la 
base de datos y, por consiguiente, el programa 
llega al menú principal, como llegará todas las 
veces que desde BD se llama a este programa 
para reconfigurar parte del sistema, Las varia- 
bles usadas son: 


DESCRIPCION 


Variable numérica auxiliar utilizada a nivel 
local. 

Variable auxiliar utilizada mucho para la en- 
trada. 

Variable auxiliar utilizada a nivel local. 

Vector auxiliar. 

Cierre del fichero i-ésimo. 

Cadena que contiene el valor 'close'. 

Número máximo de columnas de la impresora. 
Variable de cadena con carácter de control 
ctrl-d(CH$(1)). 

Unidad de pertenencia del fichero i-ésimo. 
Indicador de disco lleno (si es 1 indica disco 
lleno). l 
Indica el número de registros base asignados 
(comprende también los anulados). 
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FL 
FR$ 

I 

IAS 
1A% 
IA) 


IXS(D) 
IX%(D) 


Indicador LINK (si 1 indica la existencia de 
lista). 

Variable que contiene CHR$(95), es decir, re- 
gistro libre. 

Indice auxiliar. 

Cadena auxiliar para algoritmo de ordenación. 
Variable numérica auxiliar para algoritmo de 
ordenación. 

Parámetros índice i-ésimo (J=0 número campo; 
1 longitud clave; 2 validez). 

Clave registro i-ésimo. 

Dirección registro i-ésimo. 

Indice auxiliar. 

Indice. 

Nombre campo i-ésimo (número máximo de 
caracteres=8). 

Longitud campo i-ésimo (máximo 29 caracte- 
res). 

Longitud registro. 

Número de campos. 

Número máximo de campos. 

Número de elementos válidos del archivo 
base. 

Apertura fichero i-ésimo, 

Cadena que contiene el valor 'open". 

Indice de fichero (parámetro para rutina de 
asignación). 

Tipo interface impresora (0-en paralelo, 1-en 
serie). 

Indice auxiliar para ordenación. 

Lectura fichero i-ésimo. 

Parámetro que indica longitud registro fichero 
i-ósimo (0-secuencial). 

Cadena que contiene el valor read. 

Memoria libre para claves en el programa BD. 
Memoria libre para claves en el programa 
SETUP, 

Parámetro que indica ranura de pertenencia 
del fichero i-ésimo. 

Cadena de CHR$(95), utilizada para asignación 
de espacios en disco. . 
Cadena que contiene 28 espacios en blanco. 
Tipo campo i-ésimo (1-alfanumérico, 2-numérico, 
0-no definido). 

Escritura fichero i-ésimo. 

Cadena que contiene el valor write' 


DIMENSIONAMIENTO 
DICCIONARIO 


60630 
SELECCION 
ACTIVIDAD 
==] 
CREACION CONFIG.JRAC. 
FICHERO LINK IMPRESORA 


60500 REM MENU PRINCIPAL PROGRAMA CONFIGURACION SISTEMA 
60505 DIM IX$(EM), 12(EM),PIZ(EM) 

50510 HOME: HTAB 10:PRINT "RECONFIGURACION SISTEMAS" 
60520 VTAB 3 

60530 PRINT " 1- ACTUALIZACION INDICES ADICIONALES” 
50540 PRINT :PRINT * 2- CREACION ARCHIVOS CONCATENADOS" 
60550 PRINT :PRINT * 3- CONFIGURACION IMPRESORA” 

60560 PRINT :PRINT " 4- RETORNO AL MENU PRINCIPAL” 
60570 VTAB 22:HTAB 20:PRINT "B.B.I.” 

60600 VTAB 15:HTAB 10: INPUT "CUAL? "¡AS 

60610 I=VALIAS) 

60620 IF I<1 OR 154 THEN 60510 

60830 ON GOSUB 15000, 20000, 23000, 61000 

60640 GOTO 60510 1 


60500 


REACION DE | 


INICIACION 
BASE 
DE DATOS 


JUEVOS INDICES 


Ts 1.—Menú del programa de configuración: flujo y listado. 


A partir de la figura 1 vemos que las actividades posibles en 
este punto son: 


e La gestión de nuevos índices de acceso (1.1.2.1) además 
del principal, siempre presente y actualizado. 

e La creación de los ficheros concatenados (1.1.2.2). 

e La definición de la impresora conectada (1.1.2.3). 

e Salida de este programa con la iniciación del programa BD. | 


Comenzamos a partir de la gestión de los índices auxiliares 
(figura 2): si todavía no se grabaron los registros, no será posible 
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15140 


ESCRIT. FICHERO 
SIST. CTRL 


AAA 


e LT 


ESCRIT. FICHERO 
BD. CTRL 


15000 REM GESTION INDICES 

15005 IF NOT NX THEN RETURN 

15010 HOME:HTAB 15:PRINT "INDICES EXISTENTES":PRINT 

15020 FDOR I=1 TO 4 

15030 PRINT 1" — "LB$(IA(1,0);:HATB 1S:PRINT "S"S(I+4)" D"D(1+6);:1F NOT IA(I,2) 
THEN HTAB 22:PRINT "NO"; 

15040 PRINT " ACTUALIZADO":NEXT 

15060 VTAB B:PRINT " 1-ELIMINACION" 

15070 PRINT " 2-CREACION" 

15080 PRINT " 3-FIN" 

15100 PRINT : INPUT "CUAL? "; AS: AZ = VAL(AS) 

15110 IF AS<1 OR AZ32 THEN 15000 

15120 ON AZ 60SUB 15200,15300 

15130 1F A7<53 THEN 15000 

115140 GOSUB 30000:G0SUB 40000: 605UB 42000 

15150 RETURN 


7] Figura 2.—Gestión de Índices auxiliares: flujo y listado. 
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crear ningún índice y por ello la fase terminará de inmediato. De 
no ser así se presenta la situación actual, visualizando, para cada 
uno de los cuatro índices posibles, el nombre del campo al que 
se hace referencia, la ranura y la unidad en la que está almacena- 
do y si está actualizado o no. 

Las elecciones posibles son tres: eliminar un índice que ya 
no es necesario (1.1.2.1.1.), creación de uno nuevo (1.1.2.1.2.) o ter- 
minar las operaciones registrando la nueva operación en los fi- 
cheros de sistema. 

Para borrar un índice (figura 3) basta con ejecutar un coman- 
do DELETE <nombre fichero> y actualizar el indicador IA(, j) co- 


15200 
SOLICITUD INDICE A ELIMINAR 
ELIMINACION INDICE ELEGIDO 
ACTIVACION INDICADOR 
DEL INDICE 


15200 REM ELIMINACIÓN INDICE 

15210 PRINT :INPUT "CUAL ELIMINAR? ";A6:A=VAL(AS) 

15220 IF AX1 OR 4>4 THEN 15200 

15230 IF NOT TA(A,0) THEN RETURN 

15250 PRINT D$"DELETE "¡MI9(D$(A+6),6,7);+RIGHT$(D$14+5),6) 
15260 IA(A,0)=0:14(A,2)=0 

15270 RETURN 


lo) Figura 3.—Eliminación de un Índice: flujo y listado. 
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15300 
15320 


¿HAY 


INDICES NO 
DISPONIBLES? 


El 


PETICION CAMPO DESEADO 10330 


COMO LONG. MAX. DE LA CLAVE SE TOMA LA MIN. ENTRE 


LA DEL CAMPO Y EL ESPESOR DISPONIBLE PARA CADA 15370 
CLAVE EN LA MEMORIA 


LONSITUD REGISTRO INDICE = LONGITUD CLAVE 
| VERIFICAR ASIGNACION DE FICHEROS | 


| ESCRITURA FICHERO SIST. CTRL 2 


1.1.3 
| LECTURA FICHERO SIST.CTRL IED 

PUESTA A 1 DEL INDICADOR DE INDICE EXISTENTE 
LECTURA DE LAS DIRECCIONES DE LOS REGISTROS 15390 
BASE VALIDOS 15440 
DE LOS REGISTROS VALIDOS, LECTURA DE LOS CAMPOS] 15450 
A PONER EN EL INDICE 15505 
| ORDENACION HEAPSORT | 15510 
15220 
ESCRIBE DEL DISCO AL DICCIONARIO 15570 


| ESCRITURA DEL FICHERO BD. CTRL az] 15580 


- _—_—_—_—_—_—_—_—_—_——————————. 


13300 REM CREACION INDICE 
13310 FOR P=1 TO 4:1F TA(P,0) THEN NEXT 
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15320 1F P>4 THEN RETURN 

15330 VTAB 14: INPUT "QUE CAMPO? ";A$:A=VAL(A$) : CALL -958 

15340 1F <2 OR A) NC OR TP(A)=2 THEN 13330 

15350 VTAB 14:HTAB 18:PRINT LB$(A);HTAB 29: INPUT "LO CONFIRMA? ";As 
15333 1F LEFTS(A5,1)<> "S" THEN 15330 

15360 1A(P,0)=A+VT(0)=A 

15365 GOSUB 16000:PRINT :+1F NOT OK THEN 15330 

15370 IA(P,1)=INTUFRE(O)-2000)/EM): IF TA(P, 1)>LL(A) THEN TA(P,1)=LL(A) 
15375 RIP+6)=IA(P,1)+6:P1=P+6:PRINT P” — ";:G0SUB 15700:G0SUB 30000:G60SUB 40000 
15380 1A(P,2)=1 

15383 VTAB 20:CALL -958:HTAB 13:FLASH:PRINT "LECTURA CAMPOS": NORMAL 
15390 PRINT D$;0$/0):PRINT D$;0$(1 

15400 FOR J=1 TO NX 

15410 PRINT DS¿R$(0);J 

15420 INPUT AS: INPUT 1X2(J) 

15470 PRINT DS;R$(1);1X%(J) 

15480 FOR K=1 TO A 

15490 INPUT A$ 

15500 NEXT 

15505 1X9(J)=LEFTS(AS, TA(P,1)):NEXT 

15507 VTAB 20:CALL -958:HTAB S:FLASH:PRINT "ATENCION! ORDENACIÓN EN CURSO": NORMA 
L 

15510 60SUB 300 

15315 VTAB 20:CALL -959:HTAB 12:FLASH:PRINT "ESCRITURA INDICE":NDRMAL 
15518 ONERR GOTO 17000 

15320 PRINT D$;0$(P+6) 

15325 PRINT DS;N$(P+6);0:PRINT NX 

15530 FOR J=1 TO NX 

15540 PRINT DS;W$(P+6)5J 

15350 PRINT IXS(PIZ(6)):PRINT IXZ(PIZ(D)) 

15560 NEXT 

15570 PRINT D$;C1$ 

15573 POKE 216,0 

15380 60SUB 42000 

15590 RETURN 


y Figura 4. —Creación de un Índice: flujo y listado. 


rrespondiente. En la línea 15250 se ve que el nombre del fichero 
se toma a partir de la cadena 0$ correspondiente al índice en cues- 
tión y de la misma cadena se toman las indicaciones de la ranura 
y de la unidad de pertenencia. 

Para crear un nuevo índice (figura 4) es necesario, ante todo, 
que no estén los cuatro ocupados. 

Después de haber solicitado el número del campo que se 
quiere utilizar se calcula la longitud máxima de la clave conteni- 
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ble en la memoria del programa SETUP (línea 15370) y, puesto 
que las claves deben estar contenidas en memoria para su orde- 
nación, será preciso cerciorarse de que el espacio es suficiente 
para todas ellas. En la línea 15375 se valora la valoración del re- 
gistro índice como dimensión de la clave +6 bytes que contienen 
la dirección del registro base correspondiente a cada clave y los 
separadores(CR) entre clave y dirección. 

Inmediatamente después se ejecuta una subrutina (que co- 
mienza en la línea 15700) que permite variar la ranura (“slot”) y la 
unidad en la que se almacena el índice. Corresponde al operador 
tener cuidado en no introducir los índices en un disco que no ten- 
ga el espacio libre necesario para contenerlos; de no ser así, du- 
rante la escritura del índice se generará el mensaje de error “DISK 
FULL” (en cualquier caso, siempre podrá volverlo a crear en otro 
disco). Al escribir y volver a leer el fichero SIST.CTRL se dispon- 
drá de las cadenas de control actualizadas para el acceso a los 
datos. ; 

Para crear el índice solicitado será necesario, en este punto, 
leer a partir del MASTER INDEX cuáles son los registros del ar- 
chivo válidos, almacenando las direcciones correspondientes en 
el vector IX%(líneas 15390 y 15440; se lee también la clave prin- 
cipal en la variable A$ pero, al no ser necesaria, no se almacena). 
Al saber ahora cuáles son los registros válidos del MASTER FILE 
podemos leerlos uno a uno y almacenar en el vector I1X$ el cam- 
po correspondiente al índice objeto de creación, desechando los 
otros campos. Al final de esta operación, tendremos en los vecto- 
res IX$ e IX% todas las informaciones necesarias para tener acce- 
so a los registros según otro índice y no nos queda más que or- 
denarlos mediante la rutina heapsort para poder efectuar la bús- 
queda binaria, almacenarlos en el disco elegido y registrar en el 
fichero BD.CTRL la existencia de un nuevo índice actualizado. 

El diagrama de flujo de la figura 5 representa la fase de crea- 
ción de los ficheros LINK, que comienza con la definición de qué 
ranura (slot) y unidad de disco se quiere utilizar para estos datos; 
luego se crean las cadenas de control con el procedimiento ha- 
bilual de escritura y relectura del fichero SIST.CTRL. 

Para definir los campos que se quieren que constituyan el re- 
gistro concatenado se utiliza el mismo procedimiento empleado 
para el registro base, variando simplemente algunos parámetros 
y utilizando las mismas variables (por lo que después de ello será 
necesario volver a leer el fichero SIST.CTRL para restablecer la si- 
luación anterior). La definición de los campos crea parámetros si- 
milares a los del registro principal que se escriben en el fichero 
|,NK.C'PRL. La inicialización de los otros ficheros necesarios para 
la gestión de los ficheros concatenados consiste simplemente en 
poner a O todo el ichero LINK ENTRY, teniendo en cuenta que no 
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DEFINICION DEL SLOT Y UNIDAD DE DISCO 


REM 
ESCRITURA DEL FICHERO SIST. CTRL | 


IRE 
DE DEFINICION DECAMPOS 
ra E 
DEL FICHERO LINK 


| ESCRITURA DEL FICHERO BD. CTRL lit 


| LECTURA DEL FICHERO SIST. E EEN 
ADICION DE LA LONGITUD DEL REGISTRO 
DEL FICHERO LINK 


| rmmvarmensor mL 
20000 REM CREACIÓN NUEVO FICHERO 


20010 HOME: VTAB 9:PRINT "RANURA"S(3)" UNIDAD"D(3):P1=3:605UB 135700:FOR I=4 TO 6: 
S(D)=9(3):D(1)=D(3) :NEXT 
20015 60SUB 30000:605UE 40000 


20010 


20015 


20020 
20050 


20140 


20150 
20210 


20020 NC=0:NM=14 

20030 FOR I=1 TO NM 

20040 LBS(1)="":TP(1)=0:LL(1)=0 

20030 NEXT 

20060 GOSUB 53000 

20070 REM ESCRITURA FICHERO LINK. CTRL (CONTROL CADENA? 
20073 VATB 23:CALL -958:FLASH:HTAB 13:PRINT "PREPARACION": NORMAL 
20080 PRINT D$;0$13) 

20090 PRINT DS;H$(35 

20100 PRINT NC : 

20110 FOR I=1 TO NC A 
20120 PRINT LBS(D)","TP EI)", "LLC 

20130 NEXT 

20140 PRINT D$;C$(3) 

20150 REM INICIALZACION FICHERO ENTRY 

20160 FRINT D$;0$(4) 

20170 FOR 1=0 TO EM 

20180 PRINT D$;W$14);1 

20190 PRINT O 

20200 NEXT 

20210 PRINT D$;C5(4) 

20220 PRINT DS;0$(3) 

20230 PRINT DS¡W$(5)50 

20240 PRINT 1 

20250 PRINT D$;C$13)30 

20260 FL=1:DF=0 

20270 60SUB 42000 

20280 60SUB 40000 

20283 R(6)=LR:50SUB 30000 

20290 RETURN 


E Figura 5.—Creación del fichero LINK: flujo y listado. 


existen listas (en realidad, solamente las hemos definido) y que 
debemos escribir en el fichero LINK. PTR cuál es el primer regis- 
tro libre, es decir, el número 1. La conclusión de la fase es, como 
de costumbre, la escritura de los ficheros del sistema para actua- 
lizar la situación. 

La última fase (figura 6) se refiere a la definición del tipo de 
impresora que se quiere utilizar. La diferencia está en el tipo,de 
interface (que debe estar en el slot número 1). Existen dos posi- 
bilidades: en paralelo o en serie. El otro parámetro es el número 
máximo de caracteres que la impresora controla por cada línea 
(normalmente 80 ó 132). Estos parámetros también se registran en 
el fichero BD.CTRL. 
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25000 
25050 


PRESENTAR SITUACION ACTUAL 
MODIFICAR LOS PARAMETROS 


ESCRITURA DEL 
FICHERO BD, CTRL 


25000 REM PARAMETROS IMPRESION 


25010 HOME:HATB 12:PRINT "IMPRESORA TIPO:" 

25020 VATB S:HATR 5: IF NOT PT THEN PRINT "EN PARALELO";:E0TO 25030 
25025 PRINT "EN SERIE"; 

25030 HTAB 20:PRINT "DE "CN " COLUMNAS" 

25040 VTAB(15): HTAB(20): INPUT "MODIFICACIONES? ": AS: 1F LEFTSCAS,1) <> "S" 
THEN 25100 

25050 VTAB 18: INPUT "IMPRESORA (S/P)? ":PT=0 

25060 IF A$="S" THEN PT=1 

25070 INPUT "MUMERO COLUMNAS? "¡A$:CN=INT (VAL (A$)) 

25080 GOTO 25000 

25100 60S5UB 42000 

25110 HOME 


>) Figura 6.—Configuración de la impresora: flujo y listado. 


Hemos visto cómo crear la estructura de la base de datos, los 
ficheros concatenados y los índices auxiliares, cuáles son los pa- 
rámetros necesarios para el control de todo el conjunto y cómo 
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configurar el sistema según las propias exigencias y las posibili- 
dades de la máquina (por ejemplo, el número de unidades de que 


se dispone). 
En el siguiente capítulo proseguiremos con el desarrollo, ana- 
lizando el programa propiamente dicho de gestión de datos. 
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GESTION DE DATOS 


legamos por fin al “corazón” de la gestión de da- 
tos, cuya estructura se describió en los capítu- 
los anteriores, esperamos que con buenos resul- 
tados. Los afortunados lectores que hayan teni- 
do la posibilidad de teclear la fase de configu- 
ración del sistema (SETUP) no estarán precisa- 
mente muy entusiasmados puesto que, al tratar- 
se de una fase preparatoria, no proporciona re- 
Ppánaracin sultados tangibles inmediatos. Pedimos ahora un 
poco de paciencia y les aseguramos que, al finalizar, estarán en 
condiciones de realizar la gestión de la base de datos, en esta oca- 
sión con resultados prácticos. Quien piense que así habrá puesto 
término al desarrollo del proyecto está en un error puesto que, 
como se indicó con anterioridad, nos proponemos concluir con 
una fase de listado, es decir, de visualización e impresión, muy so- 
fisticada que ponga de manifiesto las ventajas de poder disponer 
de una base de datos bien estructurada. 

La conclusión comprenderá también algún ejemplo que pon- 
ga a prueba su imaginación en diversos campos de aplicación 
que sean de su interés. Concluiremos, pues, la odisea de la base 
de datos en el siguiente capítulo, pero no terminará para el lector, 
que tratará de modificar, optimizar y “personalizar” su gestión. 

Antes de comenzar, les recomendamos añadir inmediatamen- 
te la línea 62150 del programa SETUP 


62150 RF= 16000 


puesto que con la introducción de la fase de listado quedará me- 
nos espacio de memoria para las variables de cadena y dicha mo- 
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dificación sirve de precaución contra posibles desbordamientos 
futuros de la capacidad de memonia. 

Por si no está clara la estructura de datos controlados por lis- 
tas trataremos con más detalle los conceptos correspondientes. 


Cómo realizamos la gestión de los registros concatenados 


A primera vista, la metodología que hemos elegido para con- 
trolar los registros concatenados puedeparecer tediosa e incom- 
prensible; no obstante, aunque este sistema hay que reconocer 
que alarga algo los tiempos de acceso presenta la gran ventaja 
de que solamente existe una conexión lógica, y no física, entre los 
registros báse y los registros en cadena. Ello permite tener un ar- 
chivo y “N” discos separados de registros concatenados que tie- 
nen también un formato diferente y poder introducir y utilizar, uno 
a uno, estos discos. 

Veamos ahora con detalle cómo se manipulan las listas, Cuan- 
do el programa SETUP crea los ficheros LINK, genera en el disco 
elegido, y en el fichero LNK.CTRL, una descripción de los campos 
del registro LINK. Además crea tres ficheros: LNK.ENTRY, LNK.PTR 
y LNK.FILE. 

LNK.ENTRY contiene tantos registros como registros base má- 
ximos hay en el archivo. En este fichero, cada registro es el pun- 
tero a la cabecera de la lista conectada al registro base corres- 
pondiente. El registro 1 de LNK.ENTRY contendrá, pues, el punte- 
ro a la cabecera de la lista unida al registro base número 1 y así 
sucesivamente. En el momento de la creación, este fichero se pone 
a cero en su totalidad, lo que significa que no hay cadenas unidas. 

LNK.FILE contiene todos los registros concatenados. No ne- 
cesita inicialización por cuanto que son precisamente los dos fi- 
cheros los encargados de establecer si un registro está lleno o 
vacío. 

LNK.PTR contiene todos los punteros necesarios para la ex- 
ploración y creación de las listas; esta es la-razón por la que se 
hizo la elección de tener los punteros de las cadenas en un fiche- 
ro separado de los datos propiamente dichos. 

Veamos con un ejemplo cómo funcionan estos tres ficheros: 
teniendo el registro base número 3 conectado a una cadena de 
tres registros. Entonces, según puede verse en la figura 1, en el 
registro número 3 de LNK.ENTRY estará el primer registro en ca- 
dena en el fichero LNK.FILE (por ejemplo el 5) y en el registro nú- 
mero 5 de LNK.PTR estará el número del siguiente registro en ca- 
dena (por ejemplo, el 10); en el registro número 10 de LNK.FILE 
están los datos correspondientes, en el registro número 10 de 
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MST FILE LNK ENTRY LNK PTF 


y Figura 1.—Eiemplo del funcionamiento de los ficheros LINK. 


LNK.PTR está el puntero del siguiente, y así sucesivamente hasta 
encontrar un cero en LNK,PTR, lo que indicará el final de la cadena. 

Una atención especial merecen: los registros de los ficheros 
LNK.ENTRY y LNK.PTR. Desde el momento en que se presignaron 
los ficheros con la definición previa de la extensión (con el fin de 
permitir almacenar en el mismo disco también otros datos, por 
ejemplo, los índices auxiliares) es necesario saber cuál será el si- 
guiente registro libre y cuándo se hará la inserción de un nuevo 
registro, lo mismo que es necesario controlar los registros borra- 
dos, es decir, eliminados de una lista. Entonces, en el registro O 
del fichero LNK.PTR se mantiene el número de orden del primer 
registro libre en LNK.FILE; en realidad, en la inicialización se es- 
cribe 1, en este fichero, lo que representa el primer registro libre. 

En lo que respecta a los registros borzados de listas preexis- 
tentes para una reutilización sucesiva se conectan en una lista de 
elementos libres y en el registro O del fichero LNK.ENTRY se es- 
cribe la cabecera de esta lista. Cuando se tenga que hacer una 
inserción, si existe una lista libre, se extrae un registro de ella y 
se reutiliza, actualizando la cabecera de la cola. Si no existiera, en- 
tonces se ve cuál es el siguiente registro libre, actualizando luego 
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A Variable numérica auxiliar 


AS Variable de cadena auxiliar 
Ad Variable entera auxiliar 
BS Variable de cadena auxiliar > 


B5(*) Vector de cadena utilizado en la lectura del fichero SIS.CTRL 

[e Variable numérica empleada en el borrado 

C$(*) Vector que contiene las cadenas de control 'CLOSE' de los ficheros 
CIS Cadena 'CLOSE' 


CA Parámetro para rutina de búsqueda, que indica llamada de borrado 
CIS Valor ASCII correspondiente a control -| 

CL Columnas de formato de lista 

CcM Parámetro para la rutina de visualización campos 
CN Longitud máxima de la línea de impresión 

CR$ Valor ASCII correspondiente a 'RETURN' 

DS Valor ASCII correspondiente a control-b 

DF Indicador de disco lleno 

DL Puntero a la cabecera de la lista libre 

ES Contiene la cadena “RETURN para” 

EA Número de elementos de BD asignados 

ECS Contiene el valor ASCII “esc” 

EL Puntero al último registro a listar 


EM Número máximo de registro base 

EYS(") Vector de cadena de apoyo para introducción y borrado 

EY%(*) Vector de enteros de apoyo para introducción y borrado 

F Indicador de encontrado, o no, al término de la subrutina de búsqueda 


FD Indicador de borrado de cadena 

Fl Indicador de índice de acceso activo 

FE: Indicador de registro modificado 

FR$ Carácter indicador de clave libre 
Variable de utilidad 


! 

P6(*) — Matriz Índices de validez para la fase de listado 

lA(**) — Matriz que contiene los parámetros de los Índices auxiliares 

IL Siguiente registro libre en el fichero LINK 

Iv Número de elementos válidos en el índice auxiliar 

1XS(*) Vector de las claves principales 

a) Vector de los punteros correspondientes a las claves principales 


Variable de utilidad 
K Contador 
KOS Clave principal cuando se utilizan los indices auxiliares 
KMS Clave de búsqueda 
L Puntero para búsqueda binaria 


Ls Utilizado en la creación de las cadenas de control DOS 
L9%(*,*) Matriz longitudinal de campos en listado BD y LINK 
LB5(*,*) Matriz nombre de los campo BD y LINK 


LK Longitud clave para búsqueda binaria 

LL(*,*) Matriz longitudinal de los campos BD y LINK 
LP Número de líneas del módulo de impresión 
MS Cadena 'modificacior es?” 


MAS(*) Matriz de las claves máximas de selección para listado BD y LINK 
MIS(*,5) Matriz de las claves minimas de selección para listado BD y LINK 
N Puntero o número registros base actual 

NC(*) Número campos BD y LINK 

NM Número máximo de campos 


NP Indicador nueva página 
NU Número último registro válido del indice principal después de la inserción o fusión 
NX Número de registros base existentes 


OS(*) Vector de cadenas de control DOS 'OPEN' de los ficheros 
0%(*,*) Matriz de los campos en totalización horizontal, utilizada en el listado 
015 Cadenas 'OPEN' 


P Parámetro de salida de la búsqueda binaria, que apunta al registro encontrado 
PL Indicador de presencia LINK 
PT Tipo de impresora (Q-en paralelo, 1-en serie) 


R5S(*) Vector de las cadenas de control 'READ' de los ficheros 

R() Vector de longitudes de registros 

R1S Cadena 'READ' 

RA En exploración de cadena es el puntero al registro actual 

RO En exploración cadena es el puntero al registro anterior 
RBS(*,*) 'Matniz de cadena de apoyo” 

TVS(*,*) Matriz que contiene el registro base o LINK en gestión 

Ss Indicador de impresión activa 

Ss) Vector indicador de las ranuras («slot») de pertenencia de los ficheros 
SE Indicador del resultado de la prueba de selección 

sL Puntero al primer elemento de listado 

Sd(*) Vector indicador de la presencia de selección para BD y LINK 
TC) Tipo lista horizontal o vertical para BD y LINK 

T1S Cadena utilizada para visualizar la longitud de los campos 
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) Matriz tipo de campo para BD y LINK 
TT(*,*) Matriz de las totalizaciones verticales 


W6(*,*) Matriz de los campos en totalización vertical 

W5(*) — Vector que contiene las cadenas de control “WRITE de los ficheros 
wiS Cadena WRITE' 

Xx Indica el registro concatenado a escribir en el disco 


Mo] Figura 2.—Lista completa de las variables de la subrutina de listado. 


el indicador correspondiente. En el programa estos dos punteros 
son: DL (cabecera cola libre) e IL (siguiente registro libre). 

Las inserciones se realizarán siempre en la cabecera de la lis- 
ta, quedando una cola tipo "LIFO" (“Último en llegar primero en sa- 
lir'), para que la operación sea más rápida. 


Análisis de los flujos 


Antes de analizar los flujos, hemos de establecer una premisa 
y es la de que, como se puede ver, lamentablemente no están es- 
tructurados. Ello presenta la ventaja de la velocidad de ejecución 
y de la sencillez del programa. 

Comenzamos ahora (figura 3) a observar la estructura supe- 
rior de la base de datos. Después de la ejecución de una rutina 
que inicializa las variables se lee el fichero SIST.CTRL y según la 
situación se tendrán dos formas diferentes de proseguir el pro- 
ceso. 

En la primera vez que se ejecuta el programa el fichero no 
existe y, por consiguiente, se activa ONERR GOTO que inicia el 
programa SETUP visto en el capítulo anterior, con el fin de confi- 
gurar el sistema. : 

A continuación, será posible leer el fichero y continuar la eje- 
cución del programa BD. Los datos contenidos en el fichero son: 


e NC(0): número de campos contenidos en el registro base. 

e EM: número máximo de registros archivo principal. 

e 1B3(1.0), TP(LO), LL(LO): para cada campo, su nombre, tipo y 
longitud. 

e ASRODSID.D() para cada fichero, su nombre, longitud de 
registro, “slot” y unidad de disco. 


La subrutina de lectura crea también, con los datos extraídos 
del fichero, las cadenas 0$, R$, WS y C$, que contienen los co- 
mandos OPEN, READ, WRITE y CLOSE, respectivamente, de los fi- 


cheros que componen el sistema. 
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(62000) 
(1000) 
(1500) 


INICIALIZACION 
LECTURA DEL FICHERO 
ERROR 
(no existe) 
LECT, DEL FICH. 
8D. CTRL 


VARIABLES 
SIST. CTRL 


1 PRINT "MAXFILES 3" 

10 GOTO 60000 

100 REM IREXARARRLEREALRSERRRIRARARA 
101 REM 4kt APPLE LI pd 
102 REM tk Hi 
104 REM $k BASE DE DATOS PERSONAL £t 
105 REM FIRRERRRASELERERRARINAR RARAS 


700 REM LECTURA CAMPOS DE BASE DE DATOS 
710 PRINT R$(XFI5P: INPUT IXS: INPUT 1XZ 
720 PRINT R$(1)51X%:J=0 
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S 


INIC. PROGRA. SETUP 
LEC MASTER INDEX 


SELEC. 
ACTIVIDAD 


800 REM LECTURA DE CAMPOS 

810 FOR I=1 TO N(J): INPUT RV$C1,J):NEXT 
820 PRINT DS 

830 RETURN 

900 REM NO ENCONTRADO 

910 IF F THEN RETURN 

920 VTAB 3:HTAB 15:PRINT "NO HAY" 

930 VTAB 8:HTAB 22:G05UB 358000 

940 POP: RETURN 


10000 REM LECTURA DEL FICHERO LINK CTRL (CONTROL CADENA)” 
10010 PRINT 0$(3) 

10020 PRINT R$(3): INPUT NC(1) 

10030 FOR I=1 TO NC(1) 

10040 INPUT LBS(1,1),TP(1,1),LL(1,1) 
10050 NEXT 

10060 PRINT C$(3) 

10070 FOR 1=4 TO 6:PRINT 0$(1):NEXT 
10080 PRINT R$(4)0: INPUT DL 

10090 PRINT R$(5);0: INPUT IL 

10100 PRINT R$(5); INPUT IL 

10110 PRINT DS 

10120 RETURN 


38000 REM DISCO LLENO 

38010 IL=IL-1 

38020 PRINT 0$(5) 

38030 PRINT M$(5);0:PRINT IL 

38040 PRINT C$(3) 

38100 HOMEsHTAB 15:PRIMT "DISCO LLENO":PRINT :GOSUB 58000 
38140 DF=1 :G0SUB 2000 

38150 POKE 215,0 

38160 RUN 

40000 REM LISTADO 


58000 REM ESPERA TECLADO 

58010 INPUT "PULSE RETURN ";A$ 

58020 RETURN 

59000 REM OVERFLON BD 

59010 HOME:PRINT "NO HAY LUGAR PARA OTROS REGISTROS” 
59020 60SUB 38000 

59030 RETURN 

60000 REM PRUEBA PRIMERA VEZ (DEFINICIONES DE LA ASIGNACIÓN DE LA BASE DE DATOS) 
60010 GOSUB 62000 

60020 ONERR GOTO 60400 

60030 GOSUB 1000 

60040 GOSUB 1500 

50050 POKE 216,0 

60070 GOSUB 10300 
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60100 REX MENU PRINCIPAL 
60105 TEXT 

50110 HOME:HTAB 11:PRINT "BASE DE DATOS PERSONAL" 

60120 VIAB 3:PRINT “REGISTROS PRESENTES EN ARCHIVO"¿NX 

60130 PRINT "MAXIMOS REGISTROS POSIBLES "EM 

60140 VTAE E:HTAB 10:PRINT "FASES DE ACTIVIDAD: " 

60150 VTAB B:PRINT " 1- INSERCION" 

50160 PRINT " 2- ELIMINACION" 

60170 PRINT " 3- BUSQUEDA 1/0 MODIFICACION" 

50180 PRINT " 4- LISTADO" 

60190 PRINT " 5- ETIQUETA" 

60200 PRINT " 6- CAMBIO DE INDICE" 

60210 PRINT " 7-"3:1F FL THEN PRINT "DES" 

60215 PRINT " HABILITACION CADENAS" 

60220 PRINT * 8- RECONFIGURACION DEL SISTEMA" 

60230 PRINT * 9- VERIFICACION ARCHIVO" 

60290 PRINT "10- FIN" 

60295 VTAB 23:HTAB 10:PEINT "D % Y PRODUCTION" 

60300 VTAB 19:HTAB 10:PRINT "CUAL? "¡AS: I=VAL(AS) 

60320 IF (151 AND 1<6) AND NOT NX THEN 60100 

50330 ON 1 GOSUB 20000,25000,30000, 40000, 50000, 51000, 52000, 60400, 60450, 60500 
50340 SL(0)=0:SL(1)=0:G0TO 60100 

60400 REM LANZAMIENTO PROGRAMA DE CONFIGURACION DEL SISTEMA 

60410 PRINT DS"EJECUCION DE PROGRAMA DE CONFIGURACION DEL SISTEMA" 
60450 PRINT DS"EJECUCION DEL PROGRAMA DE CHEQUEO" 

50500 REM FINAL DEL PROGRAMA" 

60510 PRINT c1$ 

60520 PRINT D$"LOCK LOGO,D1" 

60530 PRINT DS"MAXFILES 3" 

60540 HOMESPRINT "¡ ADIOS 1” 

60550 END 

62000 REM INICIALIZACION VARIABLES 

62010 I=0:T18="-":F0R J=[ TO 6:T16=T134TIS:NEXT 

62020 DS=CHR$(4):FR$=CHR$ (95) 

62030 NM=15 

62040 DIM LBS(NM,1), TP CNE, 1) ¿LL NA, 1),RBSCNM, 1) ,RUSINM, 1) ,EYS(25),EVZ(25) 
62030 D16=D8+"0PEN":R1$=C$+"READ":M1$=DS+"HRITE":C1S=D$+"CLOSE" 
62060 DIM MIS(NM,1),MAS(NM, 1) 

62070 FOR [=1 TO NM:FOR J=0 TO 1:MAS(1,d)=FRS:LBS(NM,3)="TOTAL":NEXT 2,1 
62080 DIM IZINM,1),L70N%, 1) ¿VZLCNA, 1), 07:00, 1), TT INM, 2),T(2) ,SL(1) 
62090 CR$=CHR$(13):EC$=CHR$(27):C13=(9) 

62100 Mó="MODIFICACIONES? * 

62200 RETURN 


1000 REM LECTURA DEL FICHERO SIST,CTRL 
1010 BS(0)="":B$(1)=",R" 

1020 PRINT 01$"SIST.CTRL,S6,D1" 

1050 PRINT RIS"SIST.CTRL"s INPUT NC(0) EM 
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1040 FOR 1=0 TO 9: INPUT E(I):NEXT :LT=E(0) 

1050 FOR I=1 TO NC(0): INPUT LBS(1,0),TP(1,0),LL(1,0):NEXT 
1060 FOR 1=0 TO 10 

1070 L="": INPUT AS,R(D),S(),D(1):1F REI) THEN L8= *,L%=STRS(R(1)) 
1080 OS(1)=01$+A$+L8+", S"eSTRS(S(I))+",D"+STRS(D(1)) 
1090 R$(1)=R1$+A3+B$+(R(1)10) 

1100 M$(1)=H1$+A$+B$(R(1))0) 

1110 C$(1)=C19+A8 

1120 NEXT 

1130 PRINT C1$*SIST.CRL” 

1140 RETURN 

1500 REM LECTURA DEL FICHERO BD.CTRL 

1510 PRINT 0$(2)' 

1520 PRINT R$(2):NX, EA, PL,PT,CN, DF 

1530 FOR I=1 TO 4:INPUT 1A(1,0),1A(1,1),1A(1,2):NEXT 
1570 PRINT C$(2) 

1580 RETURN 

2000 REM ESCRITURA DEL FICHERO BD. CTRL 

2010 PRINT 0$(2) 

2020 PRINT W$(2)<PRINT NX", "EA", "PL", "PT", CN", "DF 

2040 FOR I=1 TO 4:PRINT 1A(1,0)*,"IA(1,1)*,"1A(1,2):NEXT 
2070 PRINT C$ 12) 

2080 RETURN 


10500 REM LECTURA INDICES 
10550 PRINT 0$(0) 

10560 PRINT 0$(1) 

10570 RETURN 


T ) Figura 3.—Menú del programa de Base de datos. 


El programa prosigue con la lectura del fichero BD.CTRL, que 
contiene los datos actualizados sobre el estado del sistema y exac- 
tamente: 


e NX: número de registros base existentes en el archivo. 

e EA: número de registros base asignados (NX-número de re- 
gistros utilizados ya pero borrados a continuación). 

e PL: indicador de presencia de ficheros concatenados. 

e PT: indicador del tipo de impresora. 

e CN: número máximo de columna d= impresión. 

e DF: indicador de si el disco de los ficheros concatenados 
está lleno, 


17 


Y además, para cada uno de los cuatro índices auxiliares po- 
sibles: número de campo interesado, longitud en el índice 
(que puede ser menor que la longitud efectiva del campo) 
y validez, o no, del índice. 


Conociendo el estado del sistema es posible leer ahora a par- 
tir del disco el íncice principal, con el fin de tener en la memoria 
las claves de acceso, en el vector IX$, y las direcciones corres- 
pondientes, en el vector 1X%. 

Se añade, pues, al menú principal con lo que se permitirá la 
elección de las diversas actividades, a saber: 


e INSERCION. 

e BORRADO. 

e BUSQUEDA Y MODIFICACION, 

e LISTADO. 

e ETIQUETAS (véase apéndice). 

e CAMBIO DE INDICE, 

e HABILITACION CADENAS. 

e RECONFIGURACION DEL SISTEMA. 

e VERIFICACION DE ARCHIVOS (véase apéndice). 
e FINAL, 


Inserción 


Esta fase permite la inserción de los registros en el archivo 
base, comprobando la disponibilidad y efectuando la operación 
de manera rápida y segura. Si se quieren obtener mejores tiem- 
pos de búsqueda, los datos deberían estar estructurados de for- 
ma adecuada, lo cual está en contradición con el deseo de con- 
trolar la inserción de manera sencilla y rápida. Deberemos encon- 
trar, pues, soluciones de compromiso. 

La inserción de datos en la estructura quiere decir añadir un 
elemento o sustituir un elemento eliminado del archivo base 
(MST.FL) y efectuar la inserción ordenada en el fichero índice o 
MSTINX. La primera parte es muy sencilla, puesto que basta sa- 
ber cuál es la posición libre. 

La segunda podría resultar más difícil, puesto que, al tener 
que efectuar una ordenación o una inserción ordenada, nos vere- 
mos obligados, en el caso más desfavorable, a volver a escribir 
todo el fichero de las claves principales, operación que lleva un 
cierto tiempo que, no obstante, sería aproximadamente igual para 
una O varias inserciones. Por consiguiente, se tiene la exigencia 
de crear un vector disponible para el almacenamiento simultáneo 
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de las claves principales correspondientes a los nuevos elemen- 
tos, que luego se utilizan para efectuar una inserción ordenada 
con el fichero de las claves (merge-fusión). 

Dicho vector lógico está subdividido en dos vectores físicos: 
EY$ que contiene las claves y EY% que contiene los punteros co- 
rrespondientes escritos en el fichero MST.FL. Dichos vectores se 
dimensionaron a 25 elementos para permitir un "buffereado" de 
un máximo de 25 inserciones consecutivas, de las cuales, además, 
será necesario efectuar una fusión o intercalación (merge). 

La secuencia de las instrucciones viene indicada en la figura 
4. Como puede observar, se comprueba inmediatamente la posi- 
bilidad de insertar elementos y solamente en caso favorable se 
efectúan las acciones preparatorias, es decir, obsolencia de los ín- 
dices auxiliares (que después de la inserción pueden actualizarse 
solamente a petición) y preparación del vector “entry” antes des- 
crito con elementos de clave libre y puntero a los registros libe- 
rados por eliminaciones o nunca utilizados. 

Una vez terminada la fase preparatoria el control pasa a la 
subrutina de gestión de entrada de campos con el parámetro 
CO=0 que indica la inserción. A continuación se efectúa un con- 
trol de existencia de la clave de acceso, Finalmente, el registro se 
escribe en el disco, mientras que la clave correspondiente se in- 
serta en el vector "ENTRY” como se indica en la figura 5, donde 
"K” indica el número de elementos existentes en el vector. Como 
puede constatarse, se efectúa un desplazamiento de las claves in- 
sertadas con anterioridad, hasta encontrar el lugar para la nueva, 
de modo que se mantenga la ordenación. 3 

Si se solicita otra inserción se repite la operación con alguna 
modificación, es decir, se controla la disponibilidad de memoria 
en disco y el vector entry, obligando ocasionalmente a una fusión 
o intercalación, escribiendo los índices en disco, etc, hasta la con- 
clusión de la fase. 

Vale la pena examinar el algoritmo de fusión (merge) utiliza- 
do (descrito en la figura 6), que encuentra correspondencia en un 
número verdaderamente reducido de instrucciones BASIC, NX in- 
dica el número de elementos del vector índice antes de la inser- 
ción, “K” el número de los elementos a insertar y EA el número 
de elementos asignados. Una vez actualizado el número de ele- 
mentos asignados se ejecuta la operación de inserción tantas ve- 
ces como elementos haya que insertar. Al estar ordenados los vec- 
tores index y entry es posible, a partir de los últimos elementos 
del vector index, efectuar desplazamientos y comparaciones con 
el último elemento del vector entry, transfiriendo este último so- 
lamente cuando resulte ser mayor que la clave comparada. 

De este modo se prosigue el proceso hasta agotar los ele- 
mentos del vector entry con una sola exploración del vector in- 
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Si ARCHIVO 
LLENO no 


NO 


INDICACION DE QUE LOS INDICES AUXILIARES YA * | 29999 
NO ESTAN ACTUALIZADOS K=1 CM=0 


INICIALIZACION DEL VECTOR ENTRY (2400) 20050 


SOLICITUD DE LOS DIVERSOS CAMPOS [113 | 20120 
DEL REGISTRO (1500) Í 


COMPRCBACION DE QUE LA CLAVE YA EXISTE 20130 
CON ANTERIORIDAD (23000) 


FUSION DEL VECTOR 20150 
| ESCRITURA EN DISCO DEL REGISTRO A 
(3100) | 


| VISUALIZACION DE | 


“YA NO HAY LUGAR” 
59000 


NO 


NO si 
VISUALIZA "YA NO 
HAY LUGAR” (59000) 


entaren eL UL 
ECTOR INDEX (2500)[| 


'ACTUALIZ. DE INDEX 
EN DISCO (3000) 


llescrrT. DEL FICHER 

180. CTRL (2000) 
INICIALIZ. EN EL 
VECT. ENTRY (2400) 


entaren eL 612] 
VECTOR INDEX (2500) | 


ACTUALIZ. DE INDEX 
EN DISCO (3000) 


ESCRIT. DEL FICHERO 
BD. CTRL (2000) 


20000 REM INSERCION DEL REGISTRO EN EL ARCHIVO BASE 
20010 1F NX=EM THEN G0SUB 59000: RETURN 
20020 FOR I=1 TO 4:14(1,2)=0: NEXT 
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20030 GOSUB 24000 
20060 K=1 

20070 CM=0:J=0 

20080 HOME: HTAB 15:PRINT “INSERCION" 

20090 FOR I=1 TO NC(O):RYS(1,0)=""¿NEXT 

20120 GOSUB 15000 

20150 PRINT M$(1);EYX%(K) 

20150 FOR I= 1 TO NCCOJ:PRINT RV$(I,0):NEXT 

20170 PRINT DS 

20200 GOSUB 3100 

20210 VTAB 23:CALL -S68:PRINT "OTROS REGISTROS?";26ET AS:PRINT :1F AS="N" THEN 2 
0260 

20230 IF NX+K=EM THEN EDSUB S59000:60T0 20260 

20240 IF K=25 THEN GOSUB 2500:G0S5UB 2000;60S5UB 24000:K=0 
20230 K=K+1:G0T0 20080 

20260 G0SUB 2500:60SUB 2000 

20270 PRINT C$(1):PRINT 0$(1) 

20280 RETURN 

24000 REM INICIALIZACION ENTRADA 

24005 EY$(0)="" 

24010 FOR I=1 TO 25 

24020 EYS(1)=FRS:EVZ(1)=NX+1 

24030 1F EA >= NX+I THEN PRINT R$(0) (NX+1): INPUT AS: INPUT EYZ(I)+PRINT DS 
24040 RA=DL:DL=RO 

24030 RETURN 


Eo) Figura 4.—Inserción del registro en el archivo base. 


dex. De este modo se obtiene también el índice a partir del cual 
hay que iniciar la reescritura en disco de los únicos elementos ob- 
jeto de actualización. 


Borrado 


La fase permite el borrado de registros base y listas corres- 
pondientes anteriormente objeto de inserción. Es inútil decir cuán 
peligrosa es dicha función, por lo que necesita la confirmación por 
parte del operador para permitirle darse cuenta perfecta de lo 
que va a hacer. 

En las búsquedas el acceso a los datos de base se realiza 
siempre a partir del índice principal o de los índices auxiliares 
con el puntero asociado a los mismos. Para borrar el registro de- 
seado basta inhibir el acceso al registro base, es decir, eliminar 
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AR =EY% (K 


EYS (I + 1) =RVS (1,0) 


3100 REM INSERCION DE UNA NUEVA CLAVE EN EL VECTOR ENTRY 

3105 AR=EV%1K) 

3110 FOR I=K-1 TO 1 STEP -1 

3120 IF EYS(1) > RV$(1,0) THEN EYS(1+1) = EVSCI):EVZ(1+1)=EV2(1):NEXT 
3130 EYS(1+1)=RV5(1,0):EY%(1+1)=A% 

3140 RETURN 


E] Figura 5.—Inserción de una nueva clave en el vector ENTRY. 


simplemente la clave del índice principal e indicar la no validez 
de los índices auxiliares o secundarios. 

En lo que respecta a la ocasional lista asociada, bastará escri- * 
de 0 en el fichero LNKENTRY y poner en cola la lista con la lista 
ibre. 


82 


NU=1+1 


2500 REM INSERCION DEL VECTOR ENTRY EN EL VECTOR INDEX 
2503 VTAB 23:HTAB 1:PRINT "ORDENACIÓN EN CURSO, ATENCION!" 
2510 I=NX:NX=NX+K: IF EA < NX THEN EA=NX 
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2520 FOR K=K TO 1 STEP -1 

2530.FOR I=1 TO 1 STEP -1 

2535 PRINT R$(0)1:INPUT IX$: INPUT 1XZ%:PRINT M$ (0) (1+K) 
2540 IF EYS(K) < 1XS THEM PRINT IXS9:PRINT IXZ:NEXT 
2550 PRINT EYS:PRINT EYZIK) 

2560 NEXT K 

2570 PRINT C$(0):PRINT 0$(0) 

2580 RETURN 


a Figura 6.—Fusión del vector ENTRY en el vector INDEX. 


Para todos los efectos el registro base no se elimina de ma- 
nera física, sino que se declara libre la llave de acceso correspon- 
diente, con lo que la primera inserción dispondrá del espacio por 
superposición, 

Las modificaciones que el borrado exige al diccionario prin- 
cipal son opuestas a las que requiere la inserción, pero llevan con- 
sigo también la actualización del MST.INX en el disco, con todas 
las problemáticas de velocidades antes corsideradas. Por consi- 
guiente, utilizaremos también en este caso los vectores de prepa- 
ración EY$ y EY%, donde almacenar claves y punteros a los re- 
gistros objeto de borrado, y solamente al final de la fase, o al lle- 
narse el vector, exploraremos una vez el vector IX$ para anular, 
de forma lógica, las claves y ponerlas a la cola de las claves vá- 
lidas reordenadas. 

Haciendo referencia a la figura 7, si se habilitó un índice se- 
cundario se obliga al empleo del índice principal, porque las ac- 
tualizaciones sucesivas se efectuarán solamente en dicho Índice. 
A continuación, se preparan los vectores entry y se pone a 0 el 
número de registros objeto de borrado. Para solicitar al operador 
qué registro borrar se utiliza parte de la rutina de búsqueda, a la 
que se pasa el parámetro CA=1. Una vez encontrado el registro 
objeto de borradc, se visualizará y se solicitará la confirmación co- 
rrespondiente con miras a la seguridad. En caso afirmativo, se al- 
macena la clave en el vector entry de manera ordenada aumen- 
tando el número de registros objeto de borrado. Solamente cuan- 
do sean 19, o cuando el operador ya no solicite más eliminacio- 
nes, se efectuará la compactación en el vector IX$ de las claves 
principales válidas y la puesta eri cola de las claves anuladas. Para 
cerciorarse de que cada información se almacenó en disco, des- 
pués de la escritura se efectúa un cierre y una posterior reaper- 
tura de los ficheros utilizados. Los bloques correspondientes a la 
búsqueda de registro (1.3) y visualización (1.1.3) los analizaremos 
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25010 


C=0 CIERRE FICHERO INDICE 
lao slo MA 


BUSQUEDA DEL REGISTRO Em 
o Jen es 


ÑO 25060 25200 


VISUALIZ. DEL REGISTRO [uta | 
(15000) | 
NO ¿LO CIERRE Y REAPERTURA 
CONFIRMA? DE LOS FICHEROS 
CA =0 
25210 


si 


FUSION EN EL vecTOR entrv] 121 | 
DEL REGISTRO (26000) ¡a 


Si 


BORRADO (25500) ES 25100 


í 


25000 REM ELIMINACION 

25010 IF FI THEN PRINT C$(XF)+FI=0 

25020 C=0 

25030 FOR 1=0 TO 20:EY9(1)=FP$:EY%(1)=0:NEXT 


25040 CA=1:G0SUB 30000 

25050 1F KMb="" THEN 235209 

75060 CM=1+3=0: HOME: 60308 15000 

25070 VTAB 22: INPUT "LO CONFIRMA? "¡BS 

25080 1F B5<> "S" THEN 23040 

25090 GOSUB 26000 

25100 IF C=19 THEN G0SUB 25500: G0TO 25020 

25130 60TO 25040 

25200 605uB 23500 

25210 PRINT ES0) 

23230 PRINT 0$(0) bi 
25240 1F FL THEN FOR 1=4 TO 6:PRINT CS(I)SPRINT 0$(1) NEXT 
25280 EY$(0)="":CA=0 

25290 RETURN 


7 Figura 7.—Borrado de registro en archivo base. 


a continuación, mientras que veremos con detalle la fusiór. ae la 
clave en el vector entry y el borrado. 

La figura 8 representa la inserción de la clave en el vector 
entry. En primer lugar, se explora el vector entry hasta encontrar 
un elemento mayor o igual a la clave IX$ a insertar; si la clave y 
el elemento son iguales, el registro está ya en la fase de borrado 
y se llega, pues, a una situación no variada. Por el contrario, si el 
elemento es mayor, se trasladan todos los elementos sucesivos 
una posición, dejando espacio para la inserción de la clave, au- 
mentando el número de elementos objeto de borrado. 

En la figura 9 mostramos la comprensión del diccionario fren- 
te a las claves objeto de borrado. Es evidente, que si no hay bo- 
rrados nada se modificará; de no ser así, se visualizará una lista 
de los registros que han de borrarse, solicitando una posterior con- 
firmación por parte del operador. En caso afirmativo se borrarán 
antes las cadenas asociadas a los registros y luego se actualizará 
el índice principal según se indica en la figura 10. 

Para hacer más rápido el procedimiento se encuentra la pri- 
mera clave con la búsqueda binaria y se procede luego a reubi- 
caciones en compresión, recubriendo las claves a eliminar, hasta 
silvar todos los elementos válidos. Para poder utilizar los registros 
borrados se asocian a las claves libres FPR$ los punteros a los re- 
gistros, almacenados de forma provisional en el vector EY%. Por 
último, se actualiza el número de los registros válidos y se indica 
que están fuera de uso los índices auxiliares o secundarios. 
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26020 


26000 REM INSERCION DEL REGISTRO ELIMINADO EN EL VECTOR ZNTRY 
26010 FOR 1=0 TO C 

26020 IF EYS(1) < 1X$ THEN NEXT 

26030 1F EY%(1) = 1X% THEN RETURN 

26040 FOR N=18 TO I STEP -1 


26050 EYSIN+1)=EYS(N):EVZ(0+1)=EV%(N) 
26060 NEXT 

26070 EYS(1)=IX2:EV2(1)=1X% 

26080 C=C+1; RETURN 


E Figura 8.—Fusión en el vector ENTRY del registro borrado. 


Búsqueda binaria 


Con respecto al algoritmo propiamente dicho de búsqueda 
binaria presentando en el capítulo segundo, la subrutina de la fi- 
gura 11 resulta más complicada, por cuanto que controla la bús- 
queda tanto en memoria (en el vector de los índices principales) 
como en el disco (en los ficheros de los índices secundarios). 

Además, la comparación se efectúa solamente en los LK pri- 
meros caracteres del campo, en donde LK es la longitud de la cla- 
ve, con el fin de encontrar todas las claves cuyos primeros ca” 
teres sean iguales a la clave buscada. 

Después de haber asignado los valores iniciales a las varia- 
bles, si se están utilizando los índices auxiliares se toma IV'como 
el número máximo de elementos y el menor entre la longitud de 
la clave objeto de búsqueda y la longitud de la clave grabada en 
disco (puede suceder si la clave en disco fue objeto de trunca- 
ción). A continuación, la subrutina busca la clave en modo bina- 
rio, comparando KM$ (clave solicitada) con A$, que contiene una 
de las claves en memoria o en disco, según el tipo de índice uti- 
lizado. Si a la salida “F” vale 0, ello indica que la clave no fue en- 
contrada y si vale 1, en "P” existe el número de orden de la clave 
en búsqueda en el vector adecuado, 


Cambio de índice 


La figura 12 representa la subrutina que permite el índice de 
acceso al fichero MST.FL. Estos índices auxiliares están grabados 
en disco, por lo que la búsqueda binaria ya no se efectúa en me- 
moria, sino en disco. La variable FTindica, si es diferente de 0, cuá- 
les de los cuatro índices posibles se están utilizando. 

A la entrada de la subrutina, si era activo cualquier Índice se- 
cundario, se cerrará el fichero correspondiente y se presentará la 
situación de los índices disponibles, con la indicación de si están 
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2£520 


¿LO CONFIRMA? 
E] 


NO BORRADO 
(29000) 


ACTUALIZACION 
ÍNDICE (26250) 


ESCRITURA INDICE 
ACTUALIZADO (3000) 


ESCRITURA DEL FICHERO 
BD. CTRL (2000) 


25500 REM ELIMINACION FISICA 

23503 IF NOT C THEN RETURN 

23510 HOME:HTAB 10:PRINT "REGISTRO EN ELIMINACION**PRINT 
25320 FOR 1=0 TO C-1:PRINT EYS(1):NEXT 
25330 PRINT :INPUT "LO CONFIRMA? "¡As 
23340 IF A$(3"S" THEN RETURN 

25360 FOR 1=0 TO C-1 

23570 N=EY%(1) 

23390 IF FL THEN GOSUB 29000 

25590 NEXT 

23600 GOSUB 26250 

25620 GOSUR 2000 

25630 RETURN 


a Figura 9.—Eliminación física del registro. 
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K=0 KMS =EYS (0) 26260 


| BUSQUEDA BINARIA (600) REID 


NO si 
26290 


NU=P 
INDICACION DE QUE LOS INDICES 
AUXILIARES YA NO ESTAN ACTUALIZ. 


26250 REM COMPACTACION INDICES ANTIGUOS (ACTUALIZACION DEL INDICE) 
26255 PRINT :PRINT "COMPACTACION: ";:FLASH:PRINT "ATENCION": NORMAL 
26260 K=0:KM$=EY(0):G0SUB 600:60SUB 3500 

26270 PRINT R$(0)IsINPUT IXS:INPUT 1XZ% 
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26280 1F IXX=EY%(K) THEN K=K+1:GOTO 26300 

26290 PRINT M$(0) (1-K):PRINT 1X$:PRINT 1X% 

26300 NEXT 

26310 FOR I=EA-K+1 TO EA:PRINT W$(0) 1<PRINT FR$:PRINT EVZ(I-EA+K-1):NEXT 
26320 NX=NX-C:FOR I=1 TO 4:14(1,2)=0:NEXT 

26330 RETURN 


1) Figura 10.—Actualización del índice después del borrado. 


actualizados o no, solicitando cuál se desea utilizar. Una vez rea- 
lizada la elección se abre el fichero correspondiente y a partir del 
mismo se lee el número de elementos existentes en el fichero, 
que puede ser diferente de NX si el índice ya no está actualizado. 
Este número (IV) se utilizará en las subruzinas de búsqueda en lu- 
gar de NX como límite superior de búsqueda. 


Habilitación-deshabilitación de cadena 


La subrutina de la figura 13 efectúa la negación del estado an- 
terior de utilización, correspondiente a las cadenas, condicionado 
no obstante por el indicador PL de presencia de Link. De hecho, 
si existen los ficheros concatenados (Link) y están activos (PL y 
FL puestos a 1), se cerrarán los ficheros correspondientes. Si PL 
está puesto a 1 a FL se le asigna el valor negado del anterior. Si 
FL pasa a 1, ello quiere decir que las cacenas estaban desactiva- 
das y se quiere habilitarlas; entonces se lee el fichero LNK.CTRL, 
que contiene la descripción de los registros concatenados, y se 
abren los tres ficheros necesarios para el acceso a los datos. 


Búsqueda y/o modificación 


La subrutina de búsqueda.de un registro es el elemento fun- 
damental del programa, por cuanto que permite tener acceso, de 
diversos modos, a los registros de archivo, así como por permitir 
la gestión completa de los ficheros concatenados; además, se uti- 
liza también en parte de la fase de borrado. 

Inicialmente, según puede observarse en la figura 14, se so- 
licita la clave, que es el primer campo del registro si se está uti- 
lizando el fichero MASTER INDEX o si se está empleando el cam- 
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F=0 


L=1 610 
LX= -ONGITUD DE LA CLAVE 


NO Si 
620 


Ba 640 O ENCONTRADO 
P=INT (L+N)/2 
AS =1XS (P) 


NO LECT. DEL REGISTRO P-ESIMO 
A PARTIR DEL INDICE EN AS 


=D L=P+1 


ENCONTRADO 


600 REM BUSQUEDA BINARIA 

610 F = 0: L = dí N= NX: LK = LEN (KM3) 

620 1F FI THEN N = IV:IF LK > 1A(F1,1) THEN LK = 1A(F1,1) 
630 IF N < L THEN RETURN : REM NO ENCONTRADO 
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640 P = INT ((L +N) / 2):PRINT RS(XF);P: INPUT AS:PRINT DS 
650 IF LEFTS (KM$,LKI < LEFTS (A$,LK) THEN N = P - 1:6070 630 
660 IF LEFTS (KMS,LKI > LEFTS (AS,LK) THEN L =-P + 1:6070 630 
670 F = 1:RETURN: REM ENCONTRADO 


Figura 11.—Búsqueda binaria. 


51010 


SI ERA ACTIVO UN INDICE SECUNDARIO SE CIERRA 
EL FICHERO CORRESPONDIENTE 

SE VISUALIZA LOS INDICES EXISTENTES, INDICANDO 
CUALES ESTAN ACTUALIZADOS Y CUALES NO 


ESE 


31000 REM CAMBIO DE INDICE 

31010 1F FI THEN PRINT C$(FI+6) 

31030 HOME:HTAB 15:PRINT "INDICES POSIBLES":PRINT :PRINT "0 "¡LB$(1,0) 
31040 FOR I=1 TO 4 

31050 IF NOT 1A(1,0) THEN 51080 

51060 PRINT 1" "¡LB$CIA(1,0),0);:1F NOT 1A(1,2) THEN HTAB 20:PRINT "NO"; 
31070 HTAB 24:PRINT "ACTUALIZADO" 

31080 NEXT 

51090 VTAB 10: INFUT "CUAL? ";A$: A7=VAL(A$) 

31100 1F NOT AZ THEN FI=0:XF=F1; RETURN 

31110 IF AZ >4 OR [A(A%,0)=0 THEN 51090 

31120 FI=A%:XF=F1+b6 

51130 PRINT 0$(XF) 

31140 PRINT R$sO: INPUT IV:PRINT DS 

51170 RETURN 


51120 


51140 


Figura 12.—Cambio del índice. 
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52030 


SE LEE EL FICHERO 
LNK. CTRL 


52000 REM GESTION DE INDICADORES DE ESTADO DE LAS CADENAS 
32010 1F PL AND FL THEN FOR 1=4 TO 6:PRINT C$(I):NEXT 
32020 1F PL THEN FL=NOT FL 

32030 IF FL THEN G0SUB 10000 

32040 RETURN 


NE Figura 13.—Habilitación/deshabilitación de las cadenas. 


po correspondiente al índice auxiliar o secundario. Para el caso 
de clave nula se sale de la subrutina, cerrando los ficheros si se 
efectuó alguna modificación (para asegurarlos contra la caída dé 
tensión) y escribiendo en el fichero BD.CTRL la nueva situación 
(lo que es necesario para indicar que un índice auxiliar ya no está 
actualizado si se modificó el campo correspondiente en uno cual- 
quiera de los registros). 


9% 


SOLICITUD DE LA CLAVE KMS | 30020 


si KMS nula NO 


yCA=0 
30250 
SE CIERRA Y SE VUELVE 
ABRIR LOS FICHEROS 


SE ESCRIBE EL FICH. 
BD. CTRL (2000) 


y 


| BUSQUEDA (4000) [131 30000 


ENCONTRADO, ño 


si 


LECTURA DEL REGISTRO 0080 
SOLICITADO 9 


$ E 


| VISUALIZACION (15000) pán 30130 


si 


¿SE 
VISUALIZO 
EL 30140 


COMPROBACION DE LOS 30150 t 
INDICES AUXILIARES (9000) — | SY 


REESCRITURA DEL FICHERO 30160 


EJ 


[ds DE CADENAS — (35000)]|| 


30000 REM BUSQUEDA Y MODIFICACION 
30010 HOME 
30020 PRINT LBS(1+(FIJO)R(1A(F1,0);: INPUT ": ";KM$ 
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30030 IF KM$="" AND (NOT CA) THEN 30250 

30035 IF KM$="" AND (CA) THEN RETURN 

30040 GOSUB 4000:1F NOT F THEN 30000 

30060 GOSUB 700 

30100 FOR 1=1 TO NC(JI+RBSC1, d):NEXT 

30110 IF (CA) TREN RETURN 

30120 CM=2-FL; HOME: GOSUB 15000 

30140 IF NOT FM THEN 30210 

30150 GOSUB 9000 

30160 PRINT W$(1)51%% 

30170 FOR I=1 TO NC(O)+PRINT RV$(I,0):NEXT <PRINT DS 
30210 IF FL THEN N=IX%:G0SLB 35000 

30220 6070 30000 

30250 IF 5L(0) THEN PRINT C$(1);PRINT 0$(1):GOSUB 2000 
30270 1F SL(1) THEN FOR 1=4 TO 6:PRINT CS(1):PRINT 0$(1):NEXT 
30290 RETURN 


E Figura 14 —Búsqueda y modificación. 


Por el contrario, si la clave no es nula se inicia la subrutina de 
búsqueda propiamente dicha (a partir de la línsa 4000) y si se en- 
cuentra el registro será objeto de lectura. Después de lo anterior 
si la etapa fue actuada por el borrador (CA=1), se saldrá de la 
subrutina. De no ser así se visualizará el registro, permitiendo la 
modificación de cada campo con la excepción de la clave princi- 
pal. Si se efectúan modificaciones se inicia una subrutina (líneas 
a partir de la 9000) que sirve para comprobar si se varió un cam- 
po utilizado como índice (en cuyo caso, se señala que el índice 
ya no está actualizado) y luego se vuelve a escribir el registro. En 
éste punto, si están activos los registros de Link, se llama la su- 
brutina de gestión correspondiente (líneas a partir de la 35000). 
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ULTIMAS SUBRUTINAS... 


odemos observar en la figura 1 cómo se efectúa 
la búsqueda: la subrutina de búsqueda binaria, 
entre todas las claves cuyos primeros caracte- 
res sean iguales a la de la clave buscada, pro- 
porciona el índice de una de ellas, pero no se 
sabe si es la primera, la última o una cualquiera 
de ellas. Es necesario, pues, partiendo de la cla- 
ve señalada por la búsqueda binaria remontar- 
se hacia atrás en el diccionario (figura 2) hasta 
encontrar una clave que no sea igual a la de búsqueda. Después 
de ello, si el elemento encontrado es el último existente en el ín- 
dice en uso, terminará la subrutina. 

En resumen, pues, la búsqueda se realiza del modo siguiente: 
proporcionada la clave de acceso, la subrutina de búsqueda bi- 
naria suministra el índice de una clave cuyos primeros caracteres 
son iguales a los de la clave requerida; luego se busca la primera 
de estas claves y a partir de ella en adelante se visualizan todas 
las que satisfacen la condición requerida, para pasar al operador 
la deseada. Se ve pues que, cualquiera que sea el índice que se 
esté utilizando, basta proporcionar al programa una clave parcial 
para que se encuentren todas aquéllas cuyos primeros caracteres 
sean idénticos a la clave requerida. 

En la figura 4 constatamos lo que hace la subrutina de control 
con respecto a los índices auxiliares o secundarios: en efecto, para 
cada uno de los índices existentes comprueba si se modificó el 
campo que hace de índice, en cuyo caso señala que el índice ya 
no está actualizado (14 (1,2)=0). 

De no ser así se visualizan todas las claves compatibles con 
la buscada, subdivididas en grupos para permitir la elección de 
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<DS si 
BUSQUEDA 4020 
BINARIA 600: 


NO | LECTURA 
DE LA CLAVE (3800) |] 
| BUSQUEDA 4030 
HACIA ATRAS (3500) — |] 
<= 4040 El 
P=EMo si 4120 
(FL > 0 y P=1V) 


NO | SELECCION 
£ de) 
1=1 
AS=1XS (P+1) 


FINAL (4300) 
VISUALIZACION 
DE LAS CLAVES Aa 
S si 
tecrura [1312]. 4140 
DELACLAVE (3800) 1) 
SELECCION 
NO INTERMEDIA (4400) 


$ 4070 
NO 
si 
mo 
SELECCION 
FINAL (4300) [100 


4110 


4000 REM BUSQUEDA POR INDICES 

4010 B$="SELECCIONAR POR NUMERO”:ES="RETURN PARA " 
3020 GOSUB 600:G0SUB 900 

4030 G0SUB 3300: 60SUB 900 

4040 IF (P=EM) OR (FI AND P=IV) THEN RETURN 
4030 I=1:G0SUB 3800 

4070 TF KM$<> LEFTS (AS,LEN(KM$)) THEN RETURN . 
4080 J=NX: IF FI THEN J=IY 

4090 PRINT 

4100 FOR I=0 TO J-P 

4110 GOSUB 3800 
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4120 IF KMS<>LEFTSIAS,LEN(KMS)) TMB GOSUB 4300 
4130 PRINT SPC(3-LEN(STRS(141)));1+1" "AS; 
4134 1F FI THEN HTAB (39-LL(1,0):PRINT * "KO$; 
4136 PRINT 

4140 1F I=INT (1/17)817 AND I THEN GOSUB 4400 
4150 NEXT 

4160 GOSUB 4300:RETURN 

4300 REM SELECCION FINAL 

4310 VTAB 22:PRINT BS 

4320 PRINT ES;: INPUT "SALIR”;A$:A%=VAL(AS) 
4330 IF NOT AZ THEN F=0:GOTO 4360 

4340 IF A%<1 OR A%>I THEN 4310 

4350 P=P+A%-1 

4360 POP: RETURN 

4400 REM SELECCION MEDIA 

4410 VTAB 22:PRINT B$ 

4420 PRINT E$;: INPUT “CONTINUAR”; A$: AZ=VAL (AS) 
4430 IF NOT AZ THEN VTAB 3:CALL -958: RETURN 
4440 IF A%<1 OR AZ>I+1 THEN 4410 

4450 P=P+A%-1 

4460 POP:RETURN 


Do] Figura 1.—Búsqueda mediante los diversos Índices. 


la deseada. Dos son las subrutinas utilizadas con tal objeto; una es 
la de selección intermedia, cuando la pantalla está llena aunque 
existen todavía claves compatibles, y otra es la de selección final 
cuando, por el contrario, se han visualizado todas las claves. Si se 
está utilizando un índice auxiliar o secundario se leerá la clave 
principal a partir del registro base (figura 3) y si la clave del ín- 
dice estaba abreviada, también la clave completa, visualizando 
luego ambos campos. 

Pasamos ahora a la parte más árida, a la más compleja del pro- 
grama: la gestión de los registros concatenados. 

En la figura 5 se representan las acciones que se pueden to- 
mar con respecto a las listas: inserción, exploración y borrado de 
registros, con eliminación completa de una cadena. 

Pero no acaba aquí la cuestión, puesto que es preciso com- 
pletar todavía la actualización de la lista correspondiente al regis- 
tro base en el que se está trabajando. 

Se lee luego a partir de LINK.ENTRY y la antigua cabecera de 
la lista (que será O si no había registros concatenados con ante- 
rioridad) y se escribe en el fichero LNK.PTR, en correspondencia 
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LECTURA DEL INDICE 
EN DISCO (3600) 


3500 REM BUSQUEDA HACIA ATRAS 

3510 F=D 

3520 FOR P=P TO 1 STEP -1 

3540 GOSUB 3600 

3590 IF KM$=LEFTS(A$, LEN, (KM$)) THEN F=1:NEXT 

3560 P=P+1 

3370 RETURN 

3600 REM LECTURA DE INDICE EN DISCO 

3610 PRINT R$(XF);P: INPUT AS: INPUT AZ , 
3620 1F FI THEN IF LEN(KM9) > 1A(FI,1) THEN PRINT R$(1);AZ:FOR I=1 TO JA(FI,O):1 
NPUT AS:NEXT 

3630 PRINT 0$ A 

3640 RETURN 


Es Figura 2 —Búsqueda hacia atrás. 
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3810 
LECTURA EN EL INDICE — | 389) 
DEL REGISTRO P-ESIMO 
LECTURA DEL REGISTRO | 2830 
BASE CORRESPONDIENTE 

LECTURA DE LA CLAVE 
PRINC. A PARTIR DEL REG. 


¿ES LA 
LONGITUD 
DEL CAMPO 
MAYOR QUE LA 
DELA 


LECTURA 
DE LA CLAVE 3840 
COMPLETA 


3800 REM LECTURA EN DISCO DE LA CLAVE DE ACCESO A PANTALLA 

3810 P=P+1 

3820 PRINT RS(XF);P: INPUT AS: INPUT AZ:IF NOT FI THEN 3850 

3830 PRINT R$(1);0$: INPUT KO$ 

3840 IF IA(F1,1) < LLCIA(FI,0)0) THEN FOR HK=2 TO 1A(FI,0): INPUT AS: NEXT 
3850 PRINT DS 

3860 P=P-1 

3870 RETURN 


Ea Figura 3.—Lectura de la clave de acceso en disco. 


con el registro escrito en el fichero LNK.FILE, por último se escri- 
be en el fichero LNKENTRY el número del registro LNK.FILE. 

En todo el procedimiento “N" indica el número del registro 
base en el que se está trabajando y “X” el número del registro de 
cadena que se tiene que escribir. 
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RVS (IA (1,0), 0) 
<> 
RBS (IA (1,0), 0) 


9000 REM BUSQUEDA VARIACIONES DE LOS CAMPOS INDICES 

9010 FOR I=1 TO 4 

9020 IF 1A(1,0) THEN IF RV$(IA(I,0),0) <> RBS(IA(T,0),0) THEN IA(I,2)=0 
9030 NEXT 

9040 RETURN 


1] Figura 4.—Búsqueda de variaciones de los campos Índice. 


Inserción 


Se comprueba (figura 6) que el indicador DF que señala la 
condición de disco lleno no es igual a 1; de no ser así se termina 
de inmediato la fase. En caso contrario se prosigue la ejecución 
del programa llamando a la subrutina de entrada de campos ge- 
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ANULACION DE 
CADENA (29000) 


INSERCION DE 13.31) 
CADENA (36000) 


35000 REM GESTION DE LAS CADENAS 

35010 VTAB 19:CALL -958:PRINT " 1- INSERCIÓN EN CADENA" 
35020 PRINT * 2- EXPLORACIÓN Y ELIMINACION* 

35025 PRINT " 3- ELIMINACIN CADENA" 

35030 INPUT "(RETURN PARA SALIR) *;AS 

35040 1F A$="" THEN RETURN 

35050 ON VAL(40) GABUD 34000, 37000, 29000 

33060 GOTO 39000 


30] Figura 5.—Gestión de las cadenas. 


neralizada (líneas a partir de 15000) con parámetros CM=0 que in- 
dica la creación y J=1 que indica que se trata del registro de ca- 
dena. Una vez terminada la entrada de los campos es preciso es- 
cribir en el disco, y si la cabecera de la lista libre DL es nula, se 
escribirá el registro número IL; en caso contrario se escribirá el 
registro número DL. En el primer caso se tiene que incrementar 
IL y escribirlo en el registro O del fichero LNK.PTR; de no ser así, 
lee a partir del fichero LNK.PTR en el registro que tiene el mismo 
número que el que se acaba de escribir, la nueva cabecera de la 
lista libre y la escribe en el registro O del £chero LNK.ENTRY. 


Exploración y borrado 


La subrutina de la figura 7 permite explorar una cadena, vi- 
sualizando un registro cada vez, modificándolo y, si así se quiere, 
eliminándolo. La subrutina utiliza el indicador RO (record old = re- 
gistro antiguo) y el RA (record attale = registro actual) que indi- 
can, respectivamente, el número del penúltimo y último registros 
leídos a partir del disco. Existe una sola limitación, y es que no se 
pueden borrar dos registros consecutivos. Para hacerlo, después 
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VISUALIZACION 
“DISCO LLENO” 
CM=0 % 


ESPERA (58000) 
CREACION DEL | 113 | 


REGISTRO (18000) == 


36050 
e ds 
b ' 
ESCRITURA DEL REGISTRO 36060 
X-ESIMO DEL FICHERO LNK,PTR 
36140 36090 


LECTURA DE OL A PARTIR DEL Ó 
IL=IL+1 REGISTRO X-ESIMO DEL FICHERO 
LNK. PTR 
ESCRITURA DE DL EN EL REGISTRO ESCRITURA EN EL REGISTRO CERO 
CERO DEL FICHERO LNK. ENTRY DEL FICHERO LNK. ENTRY 


LECTURA DE “A” A PARTIR DEL 
REGISTRO N-ESIMO DEL FICHERO | 36170 
LNK. ENTRY 


ESCRITURA DE “A” A PARTIR DEL | 
REGISTRO X-ESIMO DEL FICHERO | 36190 
LNK. PTR 


ESCRITURA DE "X” EN EL REGISTRO] 26210 
N-ESIMO DEL FICHERO LNK. PTR 


36000 REM INSERCION DEL REGISTRO EN CADENA 
36010 IF DF THEN PRINT "DISCO LLENO";:G0SUB 58000: RETURN 
36020 ONERR 60TD 38100 
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36030 VTAB 5: CALL -958 

36040 J=1:CM=0:FOR I=1 TO NC(1);RVS(1,1)="*:NEXT :G0SUB 15000 
36050 X=DL:1F NOT X THEN X=IL 

36060 PRINT M3(6)5X 

36070 FOR I=1 TO NC(1):PRINT RV$(1,1):NEXT 
36080 IF NOT DL THEN 36140 

36090 PRINT R$(5);X: INPUT DL 

36110 PRINT 4$(4);0:PRINT DL 

36130 60T0 36170 

36140 IL=IL+1 

36150 PRINT W$(5);0:PRINT IL 

36170 PRINT R$(4);N: IMPUTA 

36185 ONERR GOTO 38000 

36190 PRINT MS(5)3X:PRINT A 

36210 PRINT W5(4)¿N:PRINT X 

36230 PRINT DS:POKE 216,0 

36240 RETURN 


E Figura 6.—Inserción del registro en cadena. 


de la primera eliminación, basta volver a comenzar la exploración 
desde el principio y, una vez alcanzado el nuevo registro a bo- 
rrar, se puede realizar dicha operación. Por el contrario, si los dos 
registros no son consecutivos, se pueden borrar libremente sin te- 
ner que volver a comenzar desde el principio de la lista. 

Cuando se elimina un registro, en la pantalla aparecerá el an- 
terior a no ser que se esté al comienzo de la cadena, en cuyo caso 
no se visualiza nada. 

Durante la exploración de la cadena, en la parte alta de la pan- 
talla se mantienen visualizados los dos primeros campos del re- 
gistro base, con el fin de saber siempre cuál es la referencia de 
los datos. 

Veámos cómo funciona esta subrutina. Una vez puestos a O 
los indicadores RO y FD (indicador de borrado), se lee en RA la 
cabecera de la cadena; si RA es igual a cero ello quiere decir que 
la cadena es nula. Si RA es distinto de cero se lee el registro nú- 
mero RA del fichero LNKFILE y, con el parámetro CM=2 (modifi- 
cación) se llama a la habitual subrutina de visualización de regis- 
tro. A la salida de esta última, si el registro fue objeto de modifi- 
cación, se le vuelve a escribir y luego, en cada caso, se llega a 
una posterior posibilidad de elección: salida de la exploración (S), 
borrado del registro visualizado (B) o continuación de la explora- 
ción (RETURN) Si la elección es S terminará la subrutina, si la elec- 
ción.es continuar la exploración, se graba en RO el número deRA 
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si 


<> > 37270 
ESCRITURA DEL FICH. 
Lso.crmu (2000) | 


ESCR. DL EN REG. CERO 
DEL FICH. LNK.ENTRY 


LEE RA A PARTIR REG. N- 
ESIMO DE LNK. ENTRY 


VISUALIZACION DEL 
FIN DE CADENA 


Lo] 
ESCR.”A” EN REG. RO- 
ESIMO DEL FICH. LNK,PTR 


ESPERA (58000) 


econ 11.3) 
DEL REGISTRO 
(cr 


fE=0 


E= 
LECT, REG. RO-ESIMO A 
PARTIR FICH, LNK, PTA 
YRA 


37000 REM EXPLORACIÓN DE LA CADENA DE REGISTROS COM POSIBILIDAD DE ELIMINACIÓN 
37010 RD=0:FD=0 

37020 PRINT R$(4)¿N 

37030 INPUT RA:PRINT DS 

37040 ,IF(NOT RA) THEN VTAB 22;CALL -958:PRINT “FIN ”:60TO 58000 
37050 PRINT R$(6);RA 

37060 J=1:60SUB 800 

37090 CM=2:VTAB S:CALL -958 

37100 GOSUB 15000 

37110 IF NOT FM THEN 37140 

37120 PRINT WS(6);RA 

37130 FOR I=1 TO NC(1):PRINT RVS(I,1):NEXT 

37140 PRINT DS:YTAB 20:CALL -958:PRINT "EJNIT DEL.” 

37150 PRINT "(RETURN PARA CONTINUAR) *";:GET A$:PRINT 

37160 1F A$="E" THEN RETURN vd 

37170 IF A$="D" AND NOT FD THEN 37250 

37180 IF A$<> CR$ THEN 37140 

37190 RD=RA:FD=0 

37200 PRINT R$(S);RO 
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37210 6070 37030 

37250 REM ELIMÍNACION CADENA 
37260 FO=1:SL (1)=1 

37270 1F DF THEN DF=0:G0SUB 2000 
37280 PRINT R$(3)RA: INPUT A 
37290 IF NOT RD THEN 37310 
37300 PRINT W$(5)5RO:G0TO 37320 
37310 PRINT WS(4)5N 

37320 PRINT A 

37330 PRINT WS(3)¿RA 

37340 PRINT DL 

37330 DL=RA 

37360 PRINT 49(4)50 


Mi 7.—Exploración de la cadena de registros con posibilidad de ' 
borrado. 


del registro actual y se lee a partir del fichero LNK.PTR el número 
RA del siguiente registro que constituye la cadena, volviendo lue- 
go al comienzo para comprobar si RA es igual a cero. 

Por el contrario, si se solicita el borrado (B) se pondrá FDa l 
para indicar que se efectuó una eliminación y si el disco de los 
ficheros concatenados estaba lleno, se escribirá en el fichero 
BD.CTRL que ahora ya no lo está. El borrado se efectúa del modo 
siguiente: se lee cuál es el número del siguiente registro en la lis- 
ta y luego, si RO es igual a cero, es decir, si se está al comienzo 
de la cadena, se escribe este número en el fichero LNK.ENTRY, re- 
gistro N-ésimo. De no ser así, se escribe en el registro RO del fi- 
chero LNK.PTR. Por consiguiente, se consigue que si se elimina el 
primer registro de la lista se escriba como nueva cabecera el se- 
gundo registro de la lista; si se elimina uno cualquiera de los re- 
gistros se escribirá en el puntero del anterior el número de orden 
del sucesivo al eliminado. 

Ahora sólo nos queda hacer que el registro eliminado pueda 
reutilizarse, añadiéndolo a la lista libre; entonces se toma la anti- 
gua cabecera de esta lista (DL) y se la escribe en el registro eli- 
minado en el fichero LNK.PTR*A DL se le da el valor RA del re- 
gistro borrado y se escribe en el registro cero de LNK.ENTRY, por 
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LEE RO DEL REGISTRO E-ESIMO 
DEL FICHERO LNK.ENTRY 3010 


ESCRITURA DEL FICH 
IBD.CTRL (2000) 


Ra 29040 


ESCRIT. DE Q EN EL FICH. N-ESIMO 

DEL FICH. LNK.ENTRY 22088 
ESCRIT. DE DL EN EL REG. Q DEL FICH. 
LNK.ENTRY 29080 


nó qa 
LEE RA DEL REG. RO-ESIMO DEL FICH. 
UNK.PTR 28090 


si Go 29100 


NO 


ESCRIT. DE RA EN EL REG. RO-ESIMO | 29410 
DEL FICH. LNK.PTR 


27000 REM ELIMINACION EN CADENA 

29010 PRINT R$(4);N: INPUT RO 

29030 1F NOT RO THEN PRINT D$:RETURN 
29033 SL(1)=1:1F DF THEN DF=0:GOSUB 2000 
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29045 PRINT W$(4);N:FRINT 0 

29050 PRINT W$(4);0:FRINT DL 

29070 1F (NOT RA) THEN PRINT D6; RETURN 
29080 PRINT R$(5)5R0: INPUT A 

29100 IF A2)0 THEN RO=A:G0TO 29080 
29110 PRINT W$(5);RO:PRINT RA+PRINT DS 
29120 RETURN 


>) Figura 8.—Eliminación de una cadena. 


lo que quedará grabada en disco la nueva situación. Para volver 
al ciclo normal de la subrutina bastará dar a RA el valor de RO 
del registro anterior en la lista y volver a la visualización normal 
si existe el registro o se terminará la subrutina si no hay nada an- 
terior en la lista a visualizar. 


Borrado de una cadena 


Si la cadena es nula (hay un cero en el fichero LNKENTRY en 
correspondencia con el registro base objeto de examen) se ter- 
minará la subrutina contenida en la figura 8. En caso contrario se 
proseguirá la ejecución del programa indicando también aquí si 
se libera un disco lleno. Después de grabar en RA la antigua ca- 
becera de la lista libre, a DL se le da el valor de la cabecera a bo- 
rar: se escribe cero en el fichero LNK.ENTRY en el registro N-é- 
simo (lista nula para el registro base N) y se escribe DL enel re- 
gistro O de LNK.ENTRY. 

Si RA es igual a cero, es decir, si no existía ninguna listadlibre, 
hemos acabado el proceso; en caso contrario se recorre toda la 
cadena eliminada hasta encontrar el último registro de la misma 
en el cual (con puntero en LNK.PTR) se escribe RÁ, es decir, la 
antigua cabecera de la lista libre. Por consiguiente, lo que hemos 
hecho es anular la cadena de registro N-ésimo e introducirla en 
la cabecera para la lista libre. 


Introducción de campos y visualización 


En diversos puntos del programa es necesario efectuar la vi- 
sualización de datos, tanto relativos al registro base como a los re- 
gistros controlados de listas; además, si se quiere controlar la in- 
serción y la modificación de las informaciones se tendría una pro- 
liferación notable de instrucciones que haría tediosa la programa- 
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(51 KEEXJ 
¿MODIFICACION? | 


13000 REN ENTRADA DE LOS CAMPOS 

15010 FM=0:FOR I=1 TO NC(J) 

15020 VTAB(2+J43+1):PRINT SPC(9-LEN(LESK(1,31))5LB$(1,3); 
15050 GOSUB 15420 

15060 NEXT 

15065 IF NOT (CM OR FM)THEN 15110 

15070 IF CM=1 THEN RETURN 

15080 VTAB (4+J33+NC(J)):HTAB 20:PRINT MS;:GET AS:PRINT 
15100 IF A$%>"S” THEN RETURN 

15110 FM=1;SL(J)=1 : 

15120 FOR I=1 TO NC(J)+1F J=0 AND CM=2 AND I=1 THEN I=2 
15130 VTAB(S+J13+1):HTAB 21:CALL -B68:PRINT  LEFTS(T1S,LL(1,1)) 
15140 605UB 15400 

15150 VTAB(2+J83+1):HTAB L1:INPUT "";AS 
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15160 1F A$="" THEN 13200 

15170 1F TP(1,d)=2 THEN RVSCI, J)=LEFTS(STRS(VAL(A$)),LL(1,3)) 
15180 1F TP(1,d)=1 THEN RV$(1,J)=LEFTS(A$,LL(2,J)) 

15190 1F ASCORVS(1,3) THEN PRINT CHR$(7):G0TO 15140 

15200 60SUB 15400 

15210 VTAB (1+J13+1):HTAB 11:CALL -868 

15215 IF RV$(1,0)="" THEN 15120 

15220 NEXT 

15230 GOTO 13065 

15400 REM VISUALIZACIÓN 

15410 VTAB(2+J13+1):HTAB 10:CALL -B68 

15420 PRINT SPC(1+(LLC1,3)-LENIROS (1,0) TP (1,J)=2))GRV9 (1,4) 
15430 RETURN 


l ] Figura 9.—Introducción de los campos y visualización. 


ción y disminuiría la disponibilidad de memoria. Se tiene, pues, la 
exigencia de tener que condensar en ura sola rutina versátil to- 
das las necesidades relativas a la visualización, inserción y modi- 
ficación de campos correspondientes a los registros base y auxi- 
liares. 

El acceso a dicha subrutina se realiza con parámetros de de- 
finición de las funciones deseadas, según las claves para comando: 


CM=0: inserción 
CM=1: visualización 
CM=2: modificación ¡ 


y “J” como indicador del tipo de archivo en el que se trabaja: 


J=0: registro de base de datos 
]=1: registro controlado de lista. 


Por supuesto, la subrutina hace referencia a los nombres de 
los campos almacenados en la matriz LBS(*)), al registro actual en 
la matriz RV$(*J), al tipo de campo TP(*J), a la longitud corres- 
pondiente LL(*J) y al número de campos NC(). 

En la figura 9 se pone de manifiesto cuál es el efecto de la 
variable de control CM. Procediendo de forma ordenada se pone 
a cero el indicador de modificación y se visualizan los campos; si. 
se trata de una sola visualización (CM=1) se vuelve a la subrutina 
que efectuó la llamada. 
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Para la inserción (CM=1) o la solicitud de modificación (CM=2) 


se pone FL=1 y se pasa a la modificación según se indica en la 
figura 10. : 


No se permite cambiar la clave principal en la fase de modi- 


ficación, puesto que si se hiciera así se plantearían problemas de 
ordenación de registro. 


SI CM=2, SALTO AL PRIMER CAMPO : 
VISUALIZA LONGITUD CAMPO 


VISUALIZA CAMPO 


¿CAMPO 
MODIFICADO? 
15200 


COMPROBACION DE LA 15170 VISUALIZA CAMPO 
CORRECCION 
EJ 


ELIMINA DESCRIPCION 


NO LONGITUD 


15215 


¿CLAVE 
PRINCIPAL 
NULA? 


NO 15220 


PASO AL CAMPO 
SIGUIENTE 


NO FIN DE 
CAMPO 


si 
Figura 10.—Modificaciones de los campos (para el listado, véase fi- 


gura 9). 
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Para cualquier campo, la modificación se efectúa proporcio- 
nando una indicación de la longitud máxima admitida. 

Además, cada campo puede ser confirmado con RETURN o 
modificado tanto de forma total como parcial; en tal caso, se rea- 
liza la comprobación de la corrección y, antes de pasar al campo 
siguiente se visualiza la etapa final y se elimina el indicador de 


longitud. Además, se comprueba que no es nula la clave principal. 


Conclusiones 


Ahora disponemos de un instrumento muy completo que le 
permite una gestión sofisticada de sus datos. Por consiguiente, 
puede comenzar a practicar con la manipulación de los archivos 
que la base de datos personal pone a su disposición (¡si tiene la 
paciencia de teclear las instrucciones!). 
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a creatividad y la invención suelen ser funda- 
mentales en el perfeccionamiento, tanto estéti- 
co como práctico, de un programa. 

Una base de datos, tal como la presentada 
en esta monografía puede estar sujeta pues a 
modificaciones, inclusc importantes, en la bús- 
queda de un instrumento que permita facilitar el 
propio trabajo o lograr los fines para los que se 
utiliza el programa. 

Además de las líneas de programa no indicadas en las diver- 
sas figuras, incluimos también una subrutina para la impresión de 
etiquetas y otras pequeñas modificaciones puestas de manifiesto 
en el listado completo del programa. Asimismo se proporciona un 
tercer programa (Chequeo), llamado en el punto 9 del menú de 
la base de datos, concebido para la verificación y control de los 
propios archivos. 

En resumen, se dan algunos ejemplos que reafirmán la gran 
flexibilidad y adaptación de este programa para satisfacer las pro- 
pias necesidades y que, gracias a la dosis de ingenio que sin duda 
poseen los lectores, les guiarán en la realización de una base de 
datos todavía más “personal”. 
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Programa principal 


1 PRINT “MAXFILES 3* 

10 60TO 60000 

100 REM SLRERIRRSRSRRRREARIRRESAR EAS 

101 REM ARE APPLE II 8 

102 REN 44 1 

104 REN 8% BASE DE DATOS PERSONAL 44 

105 REM RSSRRARRIRIGR ERES INRIRRRRRAR 

£00 REM BUSQUEDA BINARIA 

610 F = 0: L= Li N= NX: LK = LEN (KMS) 

620 IF FI THEN N = IVsIF LK > IA(FI,1) THEN LK = JA(FI,1) 
630 IF N < L THEN RETURN : REM NO ENCONTRADO 

640 P = INT UL +N) / 2):PRINT RS(XF);P:INPUT AS:PRINT DS 
650 1F LEFTS (KMS,LK) < LEFTS (AS,LK) THEN N =P - 1:6070 630 
660 1F LEFTS (KMS,LK) > LEFTS (A$,LK) THEN L =P + 1:60T0 430 
670 F = 1:RETURN: REM ENCONTRADO 

700 REM LECTURA CAMPOS DE BASE DE DATOS 

710 PRINT RSIXF);P: INPUT 1XS: INPUT 1XX 

720 PRINT R$(1);1X2:J=0 

800 REM LECTURA DE CAMPOS 

810 FOR 1=1 TO NJ): INPUT RVS(1,3):NEXT 

820 PRINT DS 

830 RETURN 

900 REM NO ENCONTRADO 

910 1F F THEN RETURN 

920 VTAB 3:HTAB 15:PRINT “NO HAY" 

930 VTAB 8:HTAB 22:G05UB 58000 

940 POP:RETURN 

1000 REM LECTURA DEL FICHERO SIST.CTRL 

1010 B$(0)="":BS(1)=",R" 

1020 PRINT DI$"SIST.CTRL,S6, DI” 

1030 PRINT R1$"SIST.CTRL*: INPUT NC(0),EN 

1040 FOR 1=0 TO 9: INPUT E(ID:NEXT ¿LT=E(0) 

1050 FOR 1=1 TO NC(O): INPUT LBS(1,0),TP(1,0),LL(I,OP:NEXT 
1080 FOR 1=0 TO 10 

1070 L="":INPUT AS,R(I), SCI), DCI): IF RCD) THEN Ló= ",L*=STRS(R(D)) 
1080 0$(1)=019+A8+L94",8*+STRS(S(1))+",D"+STRSID(T)) 

1090 R$(1)=R1$+A$+BS+(R(1))0) 

1100 M$CI)=H1$+A$+BS(R(11)0) 

1110 CSCI)=C19+AS 

1120 NEXT 

1130 PRINT C1$"SIST.CRL" 

1140 RETURN > 

1500 REM LECTURA DEL FICHERO BD.CTRL 

1510 PRINT 0$(2) 

1520 PRINT R$(2):NX,EA,PL,PT,CN, DF 

1530 FOR I=1 TO 4: INPUT 1A(1,0),1A(1,1),TA(I,2):NEXT 


116 


1570 PRINT C$(2) 
1580 RETURN 

2000 REM ESCRITURA DEL FICHERO BD.CTRL 

2010 PRINT 0$(2) 

2020 PRINT WS(2):PRINT NX", "EA", "PL", "PT", "CN", "DF 

2040 FOR 1=1 TO 4:PRINT TA(I,0)*,"IA(I,1)*,"1A(I,2):MEXT 

2070 PRINT CS (2) 

2080 RETURN 

2500 REM INSERCION DEL VECTOR ENTRY EN EL VECTOR INDEX 

2505 VTAB 23:HTAB 1:PRINT "ORDENACIÓN EN CURSO. ATENCION!” 

2510 I=NX:NX=NX+K: 1F EA < NX THEN EA=NX 

2520 FOR K=k TO 1 STEP -1 

2530 FOR I=1 10 1 STEP -1 

2535 PRINT R6(0)1: INPUT 1XS: INPUT IXZ:PRINT M$(0) (14K) 

2540 1F EYS(K) < 118 THEN PRINT IXS:PRINT IXZeNEXT 

2550 PRINT EYS:PRINT EVZ(K) 

2560 NEXT K 

2570 PRINT C$(0):PRINT 0$(0) 

2580 RETURN 

3100 REM INSERCION DE UNA NUEVA CLAVE EN EL VECTOR ENTRY 

3105 AL=EY%(K) 

3110 FOR I=K-1 TO 1 STEP -1 

3120 1F EYS(I) > RUS(1,0) THEN EYS(1+1) = EVSCID3EVZ(I+1)=EV2(1) ¿NEXT 
3130 EVS(I+1)=RV$(1,0)2EV%(1+1)=A1 

3140 RETURN 

3500 REM BUSQUEDA HACIA ATRAS 

3510 F=D 

3520 FOR P=P 10 1 STEP -1 

3540 GOSUB 3600 

3550 1F KMG=LEFTS(AS, LEN, (KM$)) THEN F=1:MEXT 

3560 P=P+] 

3570 RETURN 

3600 REM LECTURA DE INDICE EN DISCO t 
3610 PRINT RS(XF);P: INPUT AS: INPUT AX 

3620 1F FI THEN IF LENCKMS) > TA(FI,1) THEN PRINT R$(1);A%:FOR I=1 TO IA(FL,O):1 
NPUT AS:NEXT 

3630 PRINT 0$ 

3640 RETURN e 

3800 REM LECTURA EN DISCO DE LA CLAVE DE ACCESO A PANTALLA 

3810 P=P+ 

3820 PRINT RS(XF)5P: INPUT AScINPUT AZ: 1F NOT FI THEN 3850 

3830 PRINT R$(1);A6: INPUT KOS 

3840 IF TA(FI,1) < LLCIA(FI,O)O) THEN FOR HK=2 TO IA(FI,O)s INPUT AS:NEXT 
3850 PRINT DS 

3890 P=P-1 

3870 RETURN 

4000 REM BUSQUEDA POR INDICES 

3010 B$="SELECCIONAR POR NUMERO*:ES="RETURN PARA * 

4020 GOSUR 600:G0SUB 900 
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4030 50SUB 3500:60SUB 900 

4040 1F (P=EM) OR (FI AND P=1V) THEN RETURN 

4050 1=1:G605UB 3800 

4070 1F KM$C> LEFTS (AS,LEN(KM$)) THEN RETURN 

4080 J=NX:1F FI THEN J=14 

4090 PRINT 

4100 FOR 1=0 TO J-P 

4110 G0SUB 3800 

4120 1F KNS<OLEFTS(AS,LEN(KM6)) THEN GOSUB 4300 . 
4130 PRINT SPC(3-LENISTRS(1+1)))51+1" "AS; 7 
4134 1F FI THEN HTAB (39-LL(1,0):PRINT * "KO$; 
4136 PRINT 

4140 IF I=INT (1/17)%17 AND 1 THEN G0SUB 4400 

4150 NEXT 

4160 GOSUB 4300:RETURN 

4300 REM SELECCION FINAL 

4310 VTAB 22:PRINT BS 

4320 PRINT ES;: INPUT "SALIR”;A$:A%=VAL(AS) 

4330 IF NOT AZ THEN F=0:60TO 4360 

4340 1F A%<1 OR AZ)I THEN 4310 

4350 P=P+A%-1 

4360 POP: RETURN 

4400 REM SELECCION MEDIA 

2410 VTAB 22:PRINT BS 

4420 PRINT E$;: INPUT "CONTINUAR"¡A$:A%=VAL (AS) 

4420 IF NOT AZ THEN VTAB 3:CALL -958:RETURN 

4440 1F AZ<1 OR AZ)1+1 THEN 4410 

4450 P=P+A%-1 

4460 POP: RETURN 

9000 REM BUSQUEDA VARIACIONES DE LOS CAMPOS INDICES 
9010 FOR I=1 TO 4 

9020 IF JA(I,O) THEN IF RVS(LA(1,0),0) <> RBS(IA(I,0),0) THEN 1A(1,2)=0 
9030 NEXT 

9040 RETURN 

10000 REM LECTURA DEL FICHERO LINK CTRL (CONTROL CADENA) 
10010 PRINT 0813) 

10020 PRINT R$(3): INPUT NC(1) 

10030 FOR I=1 TO NC(1) 

10040 INPUT LBS$(1,1),TP(1,1),LL(1, 10 

10050 NEXT 

10060 PRINT C$(3) 

10070 FOR 1=4 TO 6:PRINT OS(I)NEXT 

10080 PRINT R$(4)30: INPUT DL 

10090 PRINT R$(5);0: INPUT IL 

10100 PRINT R$(5); INPUT 1L - 

10110 PRINT DS 

10120 RETURN 

10500 REM LECTURA INDICES 

10550 PRINT 0$10) 
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10550 PRINT 0$(1) 

10370 RETURN 

15000 REM ENTRADA DE LOS CAMPOS 

15010 FM=0:FOR I=1 TO NC(J) 

15020 VTAB(2+J13+1):PRINT SPC(9-LEN(LBSK(1,31))5LB9(E,3); 
15050 60SUB 15420 

15060 NEXT 

15063 IF NOT (CM OR FM) THEN 15110 

15070 1F CM=1 THEN RETURN 

15080 VTAB (4+J33FNC(J)):HTAB 20:PRINT M6;:GET AS:PRENT 

15100 IF A$<)"S" THEN RETURN 

15110 FM=1;SL (J)=1 

15120 FOR I=1 TO NC(J)s1F J=0 AND CM=2 AND 1=1 THEN 1=2 
15130 VTAB(3+JL3+1):HTAB 11:CALL -B68:PRINT LEFTS(TIS,LL(1,J)) 
15140 G60SUB 15400 

15150 VIAB(Z+JR3+I):HTAB 11: INPUT ""¡AS 

15160 IF A4="" THEN 15200 

15170 1F TP(1,J)=2 THEN RV$(1,J)=LEFTS(STRS(VAL(A$)),LL(1,3)) 
15180 1F TP(1,d)=1 THEN RV$(1,J)=LEFTS(A$,LL(1,J)) 

15190 1F ASCORV$(E,J) THEN PRINT CHR$(7):G0TO 13140 

15200 50SUB 15900 

15210 VTAB (I+J43+1):HTAB 11:CALL -B68 

15215 1F RV$(1,0)="" THEN 15120 

15220 NEXT 

15230 GOTO 13065 

15400 REM VISUALIZACIÓN 

15410 VTAB(2+JR3+1):HTAB 10;CALL -868 

15420 PRINT SPC(1+(LL(T,d)-LEN(RVS (1, 31938 (TP (1,d)=21)5RV5(1,J) 
15430 RETURN 

20000 REM INSERCION DEL REGISTRO EN EL ARCHIVO BASE 

20010 IF NX=EM THEN G0SUB 59000:RETURN 

20020 FOR I=1 TO 4:1411,2)=0:NEXT 

20050 GOSUB 24000 i 
20060 K=1 

20070 CM=0;J=0 

20080 HOMEsHTAB 13:PRINT "INSERCION" 

20090 FOR 1=1 TO NC(0):RYS(I,0)="":NEXT 

20120 60SUB 15000 

20150 PRINT WS(1)5EYX1K) 

20160 FOR 1= 1 TO NC(0):PRINT AV$(1,0):NEXT 

20170 PRINT D$ 

20200 GOSUB 3100 

20210 VTAB 23:CALL -B68:PRINT “OTROS REGISTROS?";:GET AS:PRINT :1F A$="N" THEN 2 
0260 

20230 1F NX+K=EM THEN GOSUB 39000:60T0 20260 

20240 1F K=25 THEN 60SUB 2500:605UB 2000:G0SUB 240003K=0 
20250 K=K+1:6DT0 20080 

20260 60SUB 2500:50SUBE 2000 

20270 PRINT CS(1)sPRINT 0501) 
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20280 RETURN 
24000 REM INICIALIZACIÓN ENTRADA 
24005 EYG(0)="" 
24010 FUR [=1 T0 25 
24020 EV$(1)=FRS:EYL II) =MX+1 
24030 1F ER >= NX+I THEN PRINT ASCO) (NX+I): INPUT AS: INPUT EVZCID:PRINT DS 
24040 RA=DL:DL=RO 
24050 RETURN 
25000 REM ELIMINACIÓN 
25010 1F FI THEN PRINT CS(XF):FI=0 
3020 0=0 en 
25030 FOR I=u 1u ¿03 EVS(1)=FP$:EV%(1)=0:NEXT 
25040 CA=1:605UB 30000 
25050 IF KMé="" THEN 25200 
25050 CM=1:J=0: HOME: GOSUE 15000 
25070 VTAB 22: INPUT "LO CONFIRMA? ";8$ 
25080 1F E$<> "5" THEN 25040 
23090 GOSUB 26000 
25100 IF C=19 THEN GOSUB 23500: 60T0 25020 
25130 6070 25040 
25200 GOSUB 25500 
25210 PRINT C$(0) 
25230 PRINT 0$(0) 
23240 IF FL THEN FOR I=4 TO 6:PRINT C$(123PRINT 0$(1):NEXT 
25280 EY$(0)="":CA=0 
25270 RETURN 
25500 REM ELIMINACIÓN FISICA 
25305 IF NOT C THEN RETURN 
20510 HOME:HTAB 10:PRINT "REGISTRO EN ELIMINACION":PRINT 
23320 FOR I=0 TO C-1:PRINT EY$(I) :NEXT 
23330 PRINT s INPUT "LO CONFIRMA? ";A$ 
25340 IF A$()"S" THEN RETURN 
3560 FOR I=0 TO C-1 
20570 N=EVZ11) 
23580 IF FL THEN G0SUB 29000 
29390 NEXT 
23600 GOSUB 26250 
25620 G0SUB 2000 
25630 RETURN 
26000 REM INSERCIÓN DEL REGISTRO ELIMINADO EN EL VECTOR ENTRY 
26010 FOR I=0 TO C 
26020 1F EYSCI) < 145 THEN NEXT 
26030 IF EYACIO = 1X% THEN RETURN 
26040 FOR N=18 TO 1 STEF -1 
26030 EYSIN+1)=EYSIN EV Z Nel) =EV ZN) 
26060 NEXT 
26070 ENS =IMA EVA CDO=1XZ 
26080 C=C+1: RETURN 
26250 REM COMPACTACION INDICES ANTIGUOS (ACTUALIZACION DEL INDICE) 
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26255 PRINT :PRINT "COMPACTACION: "y: FLASH:PRINT "ATENCION": NORMAL 
26250 K=0:KNS=EY(0):G0SUB 600; 5O5UB 3500 

26270 PRINT R$(0)1: INPUT IXS: INPUT 1X% 

26280 1F IXM=EVR0O THEN K=K+1:G0T0 26300 

25290 PRINT W$(0) (1-K):PRINT IXS:PRINT 1X% 

26300 NEXT 

26310 FOR I=EA-K+1 TO EA:PRINT WSC0) I:PRINT FRS:PRINT EYI(1-EQ+K-1):NEXT 
26320 NX=NX-C:FOR I=1 TO 4:14(1,2)=0:NEXT 

26330 RETURN 

29000 REM ELIMINACIÓN EN CADENA 

29010 FRINT R$(4);N: INPUT RO 

29030 1F NOT RO THEN PRINT DS: RETURN 

29035 SL(1)=1:1F DF TREN DF=0:50SUB 2000 

29045 PRINT NS(4);N:PRINT O. 

29050 PRINT 4$(4);0:PRINT DL 

29070 1F (NOT RA) THEN PRINT DS: RETURN 

29080 PRINT R$(5)RO: INPUT A 

29100 IF 420 THEN RO=A:60TO 29080 

29110 PRINT WS(S);ROsPRINT RA:PRINT DS 

29120 RETURN 

30000 REM BUSQUEDA Y MODIFICACIÓN 

30010 HOME 

30020 PRINT LBS(1+(F1)0)4(1A(F1,0);: INPUT ": "¿KMS 

30030 IF KM$="" AND (NOT CA) THEN 30250 

30035 TF KM$="" AND (CA) THEN RETURN 

30040 SOSUB 4000: IF NOT F THEN 30000 

30060 GOSUB 700 

30100 FOR I=1 TO NC(J):RBS(1,d):NEXT 

30110 IF (CA) THEN RETURN 

30120 CM=2-FL: HOME: GOSUB 15000 

30140 IF NOT FM THEN 30210 

30150 G0SUB 9000 

3OL60 PRINT M$(1)51X% í 
30170 FOR I=1 TO NC(O):PRINT RVS(I,0):NEXT sPRINT D4 
30210 1F FL THEN N=IX%:60SUB 35000 

30220 GOTO 30000 

30250 1F SL(0) THEN PRINT CS(1);PRINT DS(1):G0SUB 2000 
30270 1F SL(1) THEN FOR 1=4 TO 6:PRINT C$(1);+PRINT 0$(1):NEKT 
302590 RETURN 

35000 REM GESTION DE LAS CADENAS 

35010 YTAB 19:CALL -958:PRINT " 1- INSERCION EN CADENA" 
35020 PRINT_* 2- EXPLORACIÓN Y ELIMINACIÓN" 

35025 PRINT * 3- ELIMINACIN CADENA" 

35030 INPUT * (RETURN PARA SALIR) "¡As 

35040 IF Ag="" THEN RETURN 

15050 ON VAL(AS) GOSUB 36000,37000,29000 

35060 5070 35000 

36000 REM INSERCION DEL REGISTRO EN CADENA 

36010 1F DF THEN PRINT "DISCO LLENO";:50SUB 58000: RETURN 
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36020 ONERR GOTO 38100 
36030 VTAB S:CALL -958 

36040 J=1:0M=0:FOR I=1 TO NO(I)GRVS(1,1)="*:NEXT :G0SUB 15000 

36050 X=DL:IF NOT X THEN I=IL 

36060 PRINT W$(6)3X 

36070 FOR I=1 TO NCI1):PRINT RUS(L, 1): NEXT 

36080 IF NOT DL THEN 35140 

36090 PRINT R$(S);X: INPUT DL 

36110 PRINT H$(4);0:PRINT DL 

36130 6070 36170 

36140 IL=IL+ 5 

36150 PRINT W$(5);0:PRINT IL 

36170 PRINT R$(4);N: INPUT A 

36185 ONERR GOTO 38000 

36190 PRINT WS(S);X:PRINT A 

36210 PRINT N$(4):N:PRINT X 

36230 PRINT DS:POKE 216,0 

36240 RETURN 

37000 REM EXPLORACIÓN DE LA CADENA DE REGISTROS CON POSIBILIDAD DE ELIMINACIÓN 
37010 RD=0:FD=0 
37020 ERINT R$(8)3N 

37030 INPUT RA:PRINT DS 

37040 IFINOT RA) THEN VTAB 22:CALL -958:PRINT "FIN ":G0TO 58000 

37050 PRINT R$(6)5RA 

37080 J=1:60SU8 800 

37090 CM=2:VTAB S:CALL -958 

37100 GOSUB 15000 

37110 1F NOT FM THEN 37140 

37120 FRINT N$(4);RA 

37130 FOR I=1 TO NCC1):PRINT RYS(L,1):NEXT 

37140 PRINT DS:VTAB 20:CALL -958:PRINT "EJXIT DEL.” 

37150 PRINT * (RETURN PARA CONTINUAR) ";:GET AS:PRINT 

37160 1F A$="E" THEN RETURN 
37170 1F A$="D" AND NOT FD THEN 37250 
37190 1F ASC) CR$ THEN 37140 
37190 RD=RA:FD=0 

37200 PRINT A$(5);RO 

3210 bUTU 3/030 

37250 REM ELIMINACIÓN CADENA 
37260 FO=fi8L(1)=1 

37270 1F DF THEN DF=0:G0SUB 2000 
37280 PRINT RS(S);RA: INPUT A 
37290 1F NOT RD THEN 37310 
37300 PRINT W$(5);R0:G0TO 37320 
37310 PRINT W$14):N 

37320 PRINT A 

37330 PRINT W$(5)¡RA 

27340 PRINT DL 

37350 DL=RA 
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37360 PRINT 45(4)50 

37370 PRINT DL 

37380 VTAR S:CALL -958:RA=RO 

37390 PRINT DS 

37400 IF RD THEN 37040 

37410 RETURN 

38000 REM DISCO LLENO 

38010 IL=IL-1 

33020 PRINT 0$(5) 

38030 PRINT W$(5);0sPRINT IL 

38040 PRINT C$(5) 

38100 HOMEsHTAB 15:PRINT “DISCO LLENO"sPRINT :GOSUB 58000 

38140 DF=1 :G0SUE 2000 

38150 POKE 216,0 

38160 RUN 

40000 REM LISTADO 

40010 HOME:VTAB 9:HTAB 9:PRINT M6:GET AS 

40030 IF A$="S" THEN GOSUB 47000:G0T0 40000 

30040 HOME<UTAB 9:HTAB 9:PRINT "IMPRESION? ";: GET AS:PRINT :HOME 
40050 CL=40:5=0:1F A$"S" THEN CL=CN:5=1 

40060 GOSUB 49800 

40100 NP=1+(FIDO) H(IA(F1,0)-1) 

40110 P=1:KN$=MI$(NP,0): IF KM$<>"" THEN GOSUB 600; IF F THEN GOSUB 3500 
40120 SL=P 

40140 KM$=(NP,0):GOSUB 600:1F F THEN GO0SUB 3500 

40150 EL=P:NP=1 

40200 1F 5 THEN PRINT DS"PRML":1F NOT PT THEN PRINT CIjCN;"N" 
40300 FOR P=SL TO EL: IF PEEK(-16384)=155 THEN P=EL:A$=EC$:60T0 40370 
40310 GOSUB 700:1F SL(J) THEN GOSUB 42500: 1F NOT SE THEN 40370 
30315 IF SC AND FL THEN GOSUB 40900: IF NOT SE THEN 40370 

40320 GOSUB 41000 

40330 G09UB 43009 

40340 GOSUB 42000 

40350 G0SUB 41500 

40360 1F FL THEN GOSUB 40400 

80370 NEXT 

40400 IF NOT (Y%(0,0) OR 4Z(0,1) THEN 40500 

30410 1F FL THEN T(0)=1:60SUB 42800:L=1 

40420 1F TIO) THEN HOME 

40430 1F NP THEN L=1 

40450 J=0:G0SUB 43500:J=1:0FR I=4 TO NC(J)+:T1T(1,3)=TT(1,2)3NEXT 
40460 IF V2%10,1) AND FL THEN GOSUB 41500:T(J) =1 :HOME:GOSUB 43500 
40500 GOSUB 42800 

40510 PRINT DS"PRMO": IF ASC)EC$ AND NOT S THEN VTAB 23:G60SUB 58000 
20520 POKE -1638,0 

40530 RETURN 

40500 REM LISTADO CADENA 

40610 J=1:PRINT R$(4);1X%: INPUT KsJF NOT K THEN RETURN 

20620 SE=1:PRINT RS(5)¿K:G0SUB B00: IF SL(J) THEN GOSUB 42500 
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40623 IF SE AND NF THEN 40700 

40626 1 SE THEN NP=1:0N 245+T(J)+1 60SUB -41300,41400,42300,42900:G0T0 40710 

40630 PRINT R$(S);Ks INPUT K:PRINT DS: IF PEEK (-16384) <> 153 AND K THEN 40620 

40540 RETURN 

20700 SOSUB 41000 

40710 60SUB 43000 

40720 G0SUB 42000 

40730 GOSUB 41500: 1F PSEL THEN 40800 

40740 PRINT RS(S);K: INPUT K:PRINT D$:]F NOT K THEN 40800 

0743 1F PEEK(-16384)=155 THEN A$=EC$:60T0 40800 

40750 PRINT R$t61;K:G0SUB 800: IF SL(J) THEN GOSUB 42500:1F NOT SE THEN 40740" 

40760 GOTO 40700 

A0800 G0SUB 41000:G0SUB 43500; 1F (NOT T(1)) AND (AS$<)ECS) AND (NOT S) THEN GOSUB 
42700 

40810 GOSUB 42800:NP=1:L=1 

40820 RETURN 

40900 REM PRESELECCION 

A0910 SE=O:PRINT R$(4)1X%: INPUT K:PRINT D$:IF NOT K THEN RETURN 

30920 IF NOT SL(1) THEN SE=1: RETURN 

40930 J=1:SE=1:PRINT R$(6);K:G0SUB 800:605UB 42500 

40940 1F SE THEN J=0: RETURN 

40950 PRINT R$(5);K: INPUT EsPRINT DS: 1F PEEK(-1638)(>155 AND K THEN 40930 

40950 SE=0:J=0 

40999 RETURN 

41000 REM CABECERA 

41010 ON 4J+245+T(3) GOTO 41200,41100,41200,41300,41400,41100,41200 

41100 REM DB-V-0 

41110 IF NP THEN HOME:L=1:GOSUB 42300 

41120 RETURN 

41200 REM DB-Y-Y 

41210 IF NP THEN L=1 

41220 HOME: GOSUB 42909: RETURN 

41300 REM CADENA-V-0 

41310 IF NP THEN VTAB S:CALL -958:L=5:G0SUB 42300 

41320 RETURN 

41400 REM CADENA-4-Y 

41410 VTAB S:CALL -958:50SUB 42900:L=5: RETURN 

41500 REM FIN DE PAGINA 

41310 NP=0:1F L=1 cd RETURN 

41520 Rñ=20+(LP-25-(NC(J)+07(0,0))471J)$8 . 

41530 ON HIE2ASeT(D) GOTO 41610 41700, 41700, 41600, 41610,41700,41700 

A1600 1F RASL THEN RETURN 

41510 GOSUB 42700:NP=1:RETURN 

A1700 IF RACL THEN GOSUB 42800: NP=1 

41710 RETURN E 

42000 REM SUBLISTADO 

42010 ON T(J)+1 GOSUB 42109,42200 

42020 1F PEEKI-16384)=155 THEN P=EL+1:5ET AS 

42030 B$="":IF T(J) THEN B$="" 
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42040 PRINT Bó:L=L+1 

42090 RETURN 

42100 REM HORIZONTAL 

42110 PRINT SPC<1CL-1%(0,3)1/2)3 

42120 FOR I=1 TO NC(J) +0%10,3); 1F 201,3) THEN NEXT: RETURN 
22130 C=L%(1,3) - LEN (RV$(1,J)) 

42140 A=(191)2 IF TP(1,J)=2 THEN A=A +C:C=0 

42150 PRINT SPC(A) RV$CI,J)SPCAC); 

42160 NEXT 

32170 RETURN 

42200 REM VERTICAL 

42210 VTAB 3434] 

42220 FOR I=1 TO NC(J) + D%(0,3): 1F 1%(1,d) THEN NEXT: RETURN 
42240 PRINT SPC(9-LEN(LBS(1,J))15LB$(1,J); 

42250 PRINT SPC (1+(24-LEN (RVS (1,331) (TP(1,J) = 2))¡RV$(1,J) 
22260 L=L+1 

42270 MEXT 

42280 RETURN 

42300 REM CABECERA 

42310 FOR I=1 TO NC(J)+1:RB9(1,J)=RVS(1,J):RV$(1,J) = ABS(1,J): NEXT 
32340 RETURN 

42500 REM SELECCION 

42510 SE=0: FOR 1=1 TO NC(J) 

42520 IF TP(1,4) = 1 THEN TF RV$(1,3)<MI5(1,J) OR RY$(I,9)> MA$(1,d) THEN RETURN 


42530 1F TP(1,J) = 2 THEN. A=VAL (RVS(1,J)): C=VALIMAS (1, )):1F ACVAL(MISC1,3)) 
OR ADC+1E+ITRINOT C-)) THEN RETURN 

42540 NEXT : SE =1 

42550 RETURN 

42700 REM ESPERA TECLADO 

42710 1F AC) ECS THEN VTAB 23: PRINT “ESC 0 RET? *j: GET AS: PRINT: VTAB 20 
32720 1F AS = ECS THEN P=EL+ 

42730 RETURN i 
42800 REM AVANCE DE PAPEL 

42810 REN 

42820 REM 

42900 REM AVANCE DE LINEA 

42910 PRINT "":L=L+1 

42930 RETURN 

43000 REM CALC 

43010 IF 0$(0,J) THEN A=0: FOR I=1 TO NC(J); A=AtVAL(RVS(1,J))80%(1,J): NEXT:RVS 
(1,3) = STRSIA) 

43020 1F VZ(0,J) THEN FOR I=1 TO NC(JI+07(0,J):TTUL,J)=TT(1,3)+VAL(RVS(1, 3))AV% 
(1,31:NEXT 

43030 RETURN 

43500 REM LISTADO TOTAL 

43505 IF NOT VZ(0,J) THEN RETURN 

43507 FOR 1=1 TO NC(J)+1:RYS(1,3)=""21F V2(1,0) THEN RVSC1,J)SLEFTS(T1S,L%(1,3)) 
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43508 NEXT : IF NOT T(J) THEN GOSUB 42000 

AS510 FOR I=1 TO NC(J)+1 

43520 IF V2(1,J) THEN RV$(1,J)=STR$(TT(1,3)) 

A3330 NEXT 

43540 60SUB 42000 

43550 IF J THEN FOR I=1 TO NC(I+H1:TT(1,2) = TT(1,2) + TT(L,d): TTU,J) = 0: NEX 
T 

43360 RETURN 

44000 REN CRITERIO ENTRADA 

44010 FOR 1 = 1 TO NC(J) 

44020 VTAB 4+I: HTAB 13:GET AS si 

A4030 1F A$=ECS THEN 1%(1,J)=1: CALL -B868:V2(1,J) I=03 0%(1,J)=0: G0TO 44120 
44040 IF ASCACR$ THEN 1%(1,3)=0: PRINT "X"; 

44060 HTAB 23: GET AS 

44070 IF A$=EC$ THEN V2(1,3)=0: PRINT "";: GOTO 44090 

24080 IF ASCOCR$ THEN V2(1,d) = 1: PRINT "X"; 

44090 HTAB 34 : GET AS 

44100 IF AS=ECS THEN 0$ (1,3) = 0: PRINT "" ;; GOTO 44120 
44110 1F A$ <> CR$ THEN 0$11,) = 1: PRINT "Xx"; 

44120 NEXT : PRINT 

44130 RETURN 

45000 REM CRITERIOS LISTA VISUALIZACION 

45010 HOME ; PRINT SPC(18); "FORMATO" 

45030 PRINT :HTAB 20 : PRINT LB$(NM,J) SPC(S) LBSINM,J) 

45040 HTAB 11 : PRINT "LISTADO VERTICAL HORIZONTAL " 

45045 60SUB 49000 

45050 FOR I=1 TO NC(J); IF 1%(1,J) THEN 45090 

45060 VTAB 4 + 1: HTAB 13: PRINT "X”; 

A5070 1F V%(1,d) THEN HTAB 23: PRINT "X"; 

45080 IF 0%(1,J) THEN HTAB 34: PRINT "Xx"; 

45090 NEXT : PRINT 

45100 RETURN 

A6000 REM CRITERIOS SELECCION ENTRADA 

46010 FOR I = 1 TO NC(J) 

46020 VTAB 4 + I : HTAB 11 : GET AS 

A6030 1F A$ = ECS THEN MI$(1,3) = "": PRINT SPC(15): GOTO 46040 
46040 IF A$X> CR$ THEN PRINT A$;: INPUT "";B$:MI$(1,J)=A$+B8 
45060 VATB A+I:HTAB 25:PRINT "";:GET AS 

46070 IF A$=F$ THEN MA$(1,d)=FR$: CALL -868:60T0 46100 

46080 IF ASCOCR$ THEN PRINT AS;: INPUT "";B$:MA$(1,3)=0$+BS+FR$ 
46090 1F TP(1,J)=1 THEN IF MIS(I,J)>MAS(1,J) THEN 46020 

46095 1F TP(1,3)=2 THEN 1F VAL(MIS (1, J))9VAL(MAS (1,3) THEN 46020 
A6100 NEXT 

46110 RETURN 

47000 REM SELECCION PRINCIPAL S 

47003 SC=0 

47010 FOR S=1 TO 2 

47020 FOR J=0 TO FL 

47030 ON 5 G0SUB 48000,45000 
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47040 VTAB 21:HTABE 20:PRINT MS;:GET AS 
47050 IF A$="5" THEN ON SGOSUB 46000,44000':G0TO 47030 
47060 IF A$<)"N" THEN 47040 
37062 JE NOT J AND S=1 AND FL THEN VTAB 23:HTAB 4:PRINT "SOLAMENTE LOS REGISTROS 
CON CADENA? ";:GET AS:PRINT 
47064 IF ASC)"N" AND AS<)"S" THEN 47062 
47066 IF A$="S" THEN SC=1 
A7070 NEXT 3,5 
47080 RETURN 
. 48000 REM VISUALIZACIÓN SELECCIONADA 
48010 HOME:PRINT SPC(20) "SELECCION" 
48015 HTAB 17:PRINT "DE*SPC(14)"A" 
48020 G0SUB 49000 
48030 FOR I=-1 TO NC(J) 
48040 VTAB 4+1:HATB 11:1F MI$(1,3)<9"" THEN PRINT MIS(I,v) 
48060 VTAB 4+I:HATB 26:1F MA$(1,3)<)FR$ THEN PRINT MA$(I,J) 
A8080 NEXT 
48090 RETURN 
49000 REM VISUALIZACIÓN CAMPOS 
49010 VTAB 4+I:PRINT SPC(9-LENILBS(1,J)))L85(1,J) 
49020 NEXT :VTAB 4+1:PRINT SPC(9-LEN(LBS(1,)))L84(1,1) 
49030 NEXT 
49040 RETURN 
49800 REN INICIALIZACION LISTA VARIABLE 
49810 FOR J=0 TO FL:SL(J)=0:A=0:VX(0,J)=0:0%(0,J)=0 
49820 FOR I=1 TO NC(J) 
49830 1F MIS(1,3)<>"" OR MA$(1,J)<OFR$ THEN SL(J)=1 
49840 IF 1%(1,3) THEN 49890 
49850 1%(1,3)=LL(1,J)<LEN(LBS(1,J)) THEN L%(1,3)=LENILB$(1,J)) 
49850 A=A+L%(1,3)+1 
49870 1F Y%(1,J) THEN V%(0,J)=1 
49880 IF 0%(1,3) THEN 0%(1,J)=1 
49890 NEXT 
49900 LB$(1,3)="TOTAL":TP(1,J)=2:LL(1,4)=10 
49910 L%(1,J)=LL(1,1):1%00,J)=A+(14L%(1,J))40%(0,3):V2(1,J)=V4(0,4) 
49915 T(J)=(CLXL2(0,1)) 
39920 NEXT :IF FL AND NOT S THEN T(0)=1 
49930 NC (2)=NC(1):FOR J=0 TO FL82:FOR I=1 TO NC(I)+1:T7(1,J)=0:NEXT 1, 
49950 RETURN 
50000 REM ETIQUETAS 
50010 E=0:FOR I=1 TO 4:1F E(1) THEN E=E+1 
50020 NEXT :HOME:VTAB 9:J=0 
50040 1F E£3 THEN PRINT "DEFINIR FORMATO ETIQUETA"sFOR I=1 TO 999:NEXT + RETURN 
50045 PRINT "RODIFICACION DEL TIPO DE SELECCION? *¿:GET AS 
50050 IF A$="S" THEN GOSUB 50900:G0TO 5000 
50040 PRINT :PRINT :PRINT "IMPRESION ETIQUETAS INDIVIDUALES? *;:GET AS 
50070 DL=INT(CN/E(7)):1F AS="S” THEN OL=1 
50080 PRINT :PRINT :PRINT "IMPRESORA PREPARADA? "¡:GET A$:PRINT 
50090 IF A$="N" THEN RETURN 
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50100 S=1":CL=CN:GOSUB 49800: HOME 

30110 NP=1+(FI>0)4(1A(FI,0)-1) 

30120 P=1:KMS=MIS(NP,0): IF KM$<>"" THEN GOSUB 600: IF F THEN GOSUB 3500 
50130 SL=P 

30140 KM$=MAS (NP,0):GOSUB- 600: 1F F THEN GOSUB 3500 

30150 EL=P:NF=1:E=0 

50200 PRINT DS"PRE1": IF NOT PT THEN PRINT CIS¿CN UN" 

30300 605UB 700:1F SL(J) THEN 60SUB 42500 :IF NOT SE THEN 50400 

30320 E=E+l:RV$(0,0)="" 

50330 FOR A=1 TO 4:ETS(A,E)=LEFTS(RVS(E(A),),E(7)-E(9)):NEXT 

30340 ETS$(4, E)SLEFTSIETS (A, El, 5) +" eLEFTSIRVSE(A), 0, Ea 
30350 IF E=0L THEN G0SUB 50700 

30400 NEXT 

30410 GOSUB 50700 

30420 PRINT S$"PREO" 

30490 RETURN 

30700 REM IMPRESION 

50710 IF NOT E THEN RETURN 

30720 L=LP-E(8):0N (E(8) GOSUB 42900,42800 

50730 FOR A=1 TO 4:FOR B=1 TO E 

30750 PRINT SPCIE(9))ETS(A,B);:1F B<E THEN PRINT SPC(E(7)-E(91-LENCETS (A +31); 
30760 NEXT :PRINT ¿NEXT 

30770 1F E(6) >E(8)+4 THEN L=LP-E(6)+E(8)+4:0N ((E(6)-E(8)-4)31)+1 GDSUB 42900,4 
2800 

50780 E=0: RETURN 

30900 REM SEL 

30910 GOSUB 48000 

30920 VTAB 21:HTAB 20:PRINT M$;:GET AS 

50930 1F A$="5" THEN GOSUB 46000:G0T0 50910 

30940 1F A$<>"N" THEN 50920 

30950 RETURN 

31000 REM CAMBIO DE INDICE 

31010 IF FI THEN PRINT C$(FI+6) 

31030 HOME:HTAB 1S5:PRINT “INDICES POSIBLES":PRINT ;PRINT "0 "¡LB$(1,0) 
31040 FOR I=1 TO 4 

31050 1F NOT 1A(1,0) THEN 51080 

31060 PRINT 1” "¡LBS(IA(1,0),0)3:1F NOT 1A(1,2) THEN HTAB 20:PRINT "NO"; 
31070 HTAB 24:PRINT "ACTUALIZADO" 

31080 NEXT 

31090 VTAB 10s INPUT "CUAL? ";A$:AX=VAL(A$) 

31100 IF NOT AZ THEN FI=0:XF=FI:RETURN 

51110 IF AZ >4 OR IA(AZ,0)=0 THEN 51090 

31120 FI=A%: XF=FI+6 

31130 PRINT 0$(XF) 

31140 PRINT R$;0s INPUT IV:PRINT D$ - 

51170 RETURN 

52000 REM GESTION DE INDICADORES DE ESTADO DE LAS CADENAS 

32010 1F PL AND FL THEN FOR I=4 TO 6:PRINT C$(1):NEXT 

32020 IF PL THEN FL=NOT FL 
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32030 IF FL THEN GOSUB 10000 

32040 RETURN 

58000 REM ESPERA TECLADO 

58010 INPUT "PULSE RETURN "¡AS 

358020 RETURN 

59000 REM OVERFLON BD 

39010 HOME:PRINT "NO HAY LUGAR PARA OTROS REGISTROS” 

39020 G0SUB 580004 

59030 RETURN 

60000 REM PRUEBA PRIMERA VEZ (DEFINICIONES DE LA ASIGNACIÓN DE LA BASE DE DATOS) 


50010 GOSUB 62000 

60020 ONERR GOTO 60400 
60030 GU0SUB 1000 

60040 GOSUB 1500 

50050 POKE 216,0 

60070 GOSUB 10500 

60100 REM MENU PRINCIPAL 
60105 TEXT 


* B0110 HOMES HTAB 11:PRINT "BASE DE DATOS PERSONAL” 


60120 VTAB 3:PRINT "REGISTROS PRESENTES EN ARCHIVO"; NX 
60130 PRINT "MAXIMOS REGISTROS POSIBLES "¡EM 

60140 VTAB 6:HTAR 10:PRINT "FASES DE ACTIVIDAD: * 

60150 VTAB 8:PRINT " 1- INSERCION* 

50160 PRINT " 2- ELIMINACION" 

60170 PRINT " 3- BUSQUEDA Y/O MODIFICACION" 

60180 PRINT " 4- LISTADO” 

60190 PRINT " 5- ETIQUETA" 

50200 PRINT "s6- CAMBIO DE INDICE” 

60210 PRINT * 7-"5:1F FL THEN PRINT' "DES" 

60215 PRINT * HABILITACION CADENAS" 

60220 PRINT * 8- RECONFIGURACION DEL SISTEMA” 

50230 PRINT " 9- VERIFICACION ARCHIVO” 

60290 PRINT *10- FIN" 

50293 VTAB 23:HTAB 10:PRINT *D € Y PRODUCTION" 

60300 VTAB 19:HTAB 10:PRINT "CUAL? "; Ab: I=VAL (AS) 

60320 IF (121 AND 1<6) AND NOT NX THEN 60100 

60330 ON I 6OSUB 20000,25000, 30000, 40000, 50000, 31000,52000,60400,60450,60500 
60340 SL(0)=0:5L11)=0:60T0 60100 

50400 REM LANZAMIENTO PROGRAMA DE CONFIGURACION DEL SISTEMA 
50410 PRINT DS"ECECUCION DE PROGRAMA DE CONFIGURACION DEL SISTEMA” 
60450 PRINT DS"EJECUCION DEL PROGRAMA DE CHEQUEO" 

50300 REM FINAL DEL PROGRAMA" 

60510 PRINT C1$ 

60320 PRINT D$"LOCK LOGO, D1" 

60530 PRINT DS"MAXFILES 3" 

50540 HOME:PRINT "¡ ADIOS !” 

60530 END 

62000 REM INICIALIZACION VARIABLES 
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62010 1=0:T1$="-":FOR J=1 TO 4:T118=T1$+T1$:NEXT 
62020 DI=CHR$(4) :FR$=CHR$ (95) 

62030 NM=15 

62040 DIM LBS(NM,1),TPCNA, 1),LL (NM, 1),RBSCNM, 1) ,RVS (NM, 1) ,EY$(25) ,EV2(25) 
62050 D1$=D$+"0PEN":R1$=D$+"READ*:H1$=D8+"URITE":C1$=D$+"CLOSE" 

62060 DIM MIS(NM,1),MA$(NM, 1) ; 
62070 FOR I=1 TO NM:FOR 3=0 TO 1:MA$(1,J)=FR$:LBS(NM, J)="TOTAL*:NEXT J,I 
62080 DIM I%INM,1),LZ(NM, 1),VZ(NM, 1),0%(NM, 1), TTIUNM,2),T(2),SL(1) 

62090 CR$=CHR$(13) :ECS=CHR$(27):C1$=19) 

62100 M6="MODIFICACIONES? " : 

62200 RETURN % 
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Programa de configuración (SETUP) 


1 REM AERESAARALARANIAR IRALA 

DRENE CAU RE I i 

3 REM A i 

4 REM 4 BASE DE DATOS PERSONAL $ 

O REM ULERREARRIERARRRRRA RRA R RAS 

10 60TO 60000 

300 REM HEAPSORT 

303 FOR L=0 TO NXsPIX(L)=L:NEXT 

310 1F NX=1 THEN RETURN 

315 L=INT(NX/2)+1:R=NX 

320 IF L91 THEN L=L-1:PA=PI2(L):G0TO 540 

325 PASPIZ(RISPIZAR)=PTZ (1): R=R-1 

330 IF R=1 THEN PI211)=PA: RETURN 

340 J=L 

543 I=J:J=2%J 

550 1F JR THEN PIZ(1)=PA: GOTO 520 

333 IF J<R THEN GOSUB 600 

360 1F IXS(PA) < IXS(PIA(I)) THEN PIZ(1)=P12(J):G0T0 545 
363 PIZ(1)=PA:GOTO 520 

600 11=PX%(J) : 11I=P12(3+1):1F 1IX9(110<1X$ (11) THEN J=3+1: RETURN 
610 1F IX$(11)>IX$(11) THEN RETURN 

620 PRINT DSR$(1)1X%(11):FOR KK=1 TO NC: INPUT V1S(KK):NEXT 
630 PRINT DSR$(1)1X%(11);FOR KK=1 TO NC:INPUT V2$(KK):NEXT:PRINT DS 
640 TI=VT(O): IF VI(IT)<V2$(11) OR NOT NI THEN J=J+1:;RETURN 
650 1I=VT(0)+1F VI(IT)>V24(11) OR NOT NI THEN RETURN 

660 FOR KK=1 TO NIsII=VT(KK) 

670 1F TP(IIDD=1 THEN 1F VIS(I1)<V2$(11) THEN J=J+1:RETURN 
680 IF TP(II)=2 THEN 1F VAL(VIS(IT))<VAL(V2$(11)) THEN J=J+1:RETURN 
690 1F TP(I1D=1 THEN 1F VIS(II)=V2$(11) THEN NEXT 

6935 1F TP(II)=2 THEN IF VAL(VIS(11))=VAL(V29(11)) THEN NEXT 
699 NEXT 

800 PRINT DSR$(1)1X%:FOR KK=1 TO NC: INPUT V1S(KK):NEXT 

810 PRINT DSR$11)1X%(P12(3)):FOR KK=1 TO NC: INPUT V2$ (KK): NEXT<PRINT DS 
820 IF=VT(0):1F VIS(IID<V2$(11) THEN 890 

830 IF (VIS(IID>IF V2$(11)) OR NOT NI THEN 565 

840 FOR KK=1 TO NI:II=4T(KX) 

850 IF TP(II)=1 THEN IF VIS(II)<V25(11) THEN 885 

860 IF TP(I1)=2 THEN IF VAL(VI$(11))<VAL(V2$(11)) THEN 885 
862 IF TP(11)=1 THEN IF VIS(11)=424(11) THEN NEXT 

870 IF TP(11)=2 THEN 1F VAL(VI$(11))=VAL (V2$(11)) THEN NEXT 
880 G0T0 365 

895 KK=NI:NEXT 

890 PIFI) =PIX(J):GOTO 543 

3308 RETURN 

15000 REM GESTION INDICES 

15005 1F NOT NX THEN RETURN 


15010 HOME:HTAB 15:PRINT "INDICES EXISTENTES":PRINT 

15020 FDOR I=1 TO 4 

15030 PRINT 1%  "LBS(IA(I,O);:HATB 1S:PRINT "S"S(I+6)" D"D(I+6)5:1F NOT 14(1,2) 
THEN HTAB 22:PRINT "NO*; q 

15040 PRINT * ACTUALIZADO":NEXT 

15060 VTAB B:PRINT " 1-ELIMINACION" 

15070 PRINT " 2-CREACION" 

15080 PRINT " 3-FIN" 

15100 PRINT : INPUT "CUAL? "; AS: AZ = VAL(AS) 

15110 IF AS<1 OR A%)2 THEN 15000 

15120 ON AZ 60SUB 15200,13300 

15130 IF AX<>3 THEN 15000 

15140 GOSUB 30000:50SUB 40000: 60S5UE 42000 

15150 RETURN 

15200 REM ELIMINACIÓN INDICE 

15210 PRINT :INPUT "CUAL ELIMINAR? ";As$:A=VAL(AS) 

15220 IF A<1 OR A74 THEN 13200 

15230 IF NOT IA(A,0) THEN RETURN 

15250 PRINT DS"DELETE "¡MI$(0$(A+6),6,7);:+RIGHTS(0$(A+6),6) 

15260 IA(A,0)=0:1A(A,2)=0 

15270 RETURN 

15300 REM CREACION INDICE 

15310 FOR P=1 TO 4:1F IA(P,0) THEN NEXT 

15320 IF P>4 THEN RETURN 

15330 VTAB 14: INPUT "QUE CAMPO? ";A$:A=VAL(AS$):CALL -958 

15340 1F <2 OR A> NC OR TP(A)=2 THEN 15330 

15350 VTAB 14sHTAB 18:PRINT LB$(A);HTAB 29: INPUT "LO CONFIRMA? ";A$ 

15355 IF LEFTS(A$,1)<> "S" THEN 15330 

15360 IA(P,0)=A:VT(0)=A 

15365 GO0SUB 16000;PRINT : IF NOT OK THEN 15330 

15370 JIA(P,1)=INT((FREC0)-2000)/EM):1F JA(P, 1))LL(A) THEN TA(P, 1)=LL(A) , 

15375 RiP+6)=14(P,1)+6:P1=P+6:PRINT P"  ";:G0SUB 15700:G0SUB 30000:G0SUB 40000 

15380 JA(P,2)=1 

15385 VTAB 20:CALL -958:HTAB 13:FLASH:PRINT "LECTURA CAMPOS”: NORMAL 

15390 PRINT D$;0$(0):PRINT DS50$(1) 

15400 FOR J=1 TO NX 

15410 PRINT DS¿R$(0)5J 

15420 INPUT AS: INPUT 1X%(J) 

15470 PRINT DS¿R$(1);14%(J) 

15480 FOR K=1 TO A 

15490 INPUT AS 

15500 NEXT 

15505 1X4(J)=LEFTS(AS, IA(P,1)):NEXT 

15507 VTAB 20:CALL -958:HTAB 5:FLASH:PRINT "ATENCION! ORDENACION EN CURSO": NORMA 

L z 

15510 G05UB 500 

15515 VTAB 20:CALL -958:HTAB 12:FLASH:PRINT "ESCRITURA INDICE": NORMAL 

15518 ONERR GOTO 17000 

15520 PRINT D9;0$(P+6) 
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15525 PRINT DS¿NS(P+6);0:PRINT NX 
15530 FOR J=1 TO NX 
15540 PRINT DS¿NS(P+6)53 
15550 PRINT IXS(PIZ(6)):PRINT IXZ(PIZO)) 
15580 NEXT 
15570 PRINT DS¿C15 
15575 POKE 216,0 
15580 60SUB 42009 
15590 RETURN 
15700 REM ASIGNACION DE FICHEROS 
15710 VTAB 20: INPUT "CORRECTAS RANURA Y UNIDAD? "¿Ab 
18720 FI AS="8" OR Ag="" THEN RETURN 
15730 VATE 20:CALL -958:PRINT "RANURA “S(PA); 
15740 HATB 6: INPUT *"¡AS:S(P1)=VAL(AS) 
15750 VATB 20:HTAB 21:PRINT "UNIDAD"¿D(P1); 
15780 HATB 27: INPUT "*¡AS:D(P1)=VAL(AS) :PRINT 
15780 HATB 23:INPUT "MODIFICACIONES? *¿A$ 
15790 IF AS="8" THEN 15730 
15800 RETURN 
16000 REM CLAVE MULTIPLICACIÓN 
18010 K=1 
16020 VTAB 14+K: INPUT "Y EL CAMPO? "¡AS:B=VAL(AS):CALL -950:1F A$="" THEN 16080 
18030 1F BC OR BINC THEN 16020 
16040 UTAB 14+KsHTAB 18:PRINT LBS;:HTAB 29: INPUT "LO CONFIRMA? "sASs IF LEFTS(AS, 
1):)*8" THEN 16020 
16050 VT(K)=B:K=K+1:1F K<5 THEN 18020 
16060 NI=K-1:UTAB 15HK:CALL -958: INPUT "CONFIRMA TODO? "¿AS 
16070 OK=1:1F LEFTS(AS,1)="N" THEN OK=0 
16099 RETURN 
17000 1F PEEK(222)<)9 THEN 63900 
17010 VATB 22:HTAB 12:FLASH:PRINT “NO HAY ESPACIO": MORMAL 
17020 PRINT «PRINT "PULSE RETURN *;:GET AS 
17022 VATB 23:PRINT 
17025 GOSUB 15250 
17040 RUN 
20000 REM CREACIÓN NUEVO FICHERO 
20010 HOME:VTAB P:PRINT "RANURA"S(3)" UNIDAD*D(3) :P1=3:GOSUB 15700:FOR 1=4 TO 4: 
S(1)=S(3):D(1)=D13) ¿NEXT 
20015 GOSUB 30000:G0SUB 40000 
20020 NC=0:NM=14 
20030 FOR 1=1 TO NM 
20040 LBS(I)="":TP(1)=0:LL(1)=0 
20050 NEXT 
20060 GOSUB 63000 
20070 REM ESCRITURA FICHERO LINK.CTRL(CONTROL CADENA) 
20075 VATB 23:CALL -958:FLASH:MTAB 13:PRINT "PREPARACION" NORMAL 
| 20080 PRINT D$;05(3) 
20090 PRINT DS¿W5(3) 
| 20100 PRINT NC 
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20110 FOR I=1 TO NC 

20120 PRINT LBS(1)*,"TP(1)", "LLL 

20130 NEXT 

20140 PRINT D$;04(3) 

20150 REM INICIALZACION FICHERO ENTRY 

20160 PRINT D$;0$(4) 

20170 FOR 1=0 TO EM 

20180 PRINT DS;M$(4)51 

20190 PRINT 0 

20200 NEXT 

20210 PRINT DS;0$(4) po 
20220 PRINT D$;0$(5) 

20230 PRINT D$¿M$(5);0 

20240 PRINT 1 

20250 PRINT D$;C$(5)50 

20280 FL=1:DF=0 

20270 G0SUB 42000 

20280 GOSUB 40000 

20285 R16)=LR:G0SUB 30000 

20290 RETURN 

25000 REM PARAMETROS IMPRESION 

25010 HOME:HATB 12:PRINT "IMPRESORA TIPO:" 

25020 VATB S:HATB 5:1F NOT PT THEN PRINT "EN PARALELO"; :G0TO 25030 
25025 PRINT "EN SERIE”; 

25030 HTAB 20:PRINT "DE "CN " COLUMNAS" 

25040 VTAB(15): HTAB(Z0): INPUT "MODIFICACIONES? *: Ass IF LEFTS(AS,1) <) "8" 
THEN 25100 

25050 VTAB 18: INPUT "IMPRESORA (8/P)? *:PT=0 

25060 IF A$="S* THEN PT=1 

25070 INPUT "MUMERO COLUMNAS? "¡AS:CN=INT (VAL(AS)) 
25080 6070 25000 

25100 GOSUB 42000 

25110 HOME 

25120 PRINT "COLUMNAS DE IMPRESION? *,CN 

25130 PRINT 

25140 PRINT "LINEAS POR PAGINA? ",E(0) 

25150 PRINT:PRINT 

25180 PRINT "AT. CAMPO N. *,E(1 

25170 PRINT "FIRMA CAMPO N. *,E(2) 

25180 PRINT "DIRECCION CAMPO NM. ",E(3) 

25190 PRINT "CODIGO POSTAL CAMPO N. ",E(4) 

25200 PRINT "CIUDAD CAMPO N. ",E(S) 

25210 PRINT 

25220 PRINT "ALTURA ETIQUETA",E(6) 

25230 PRINT "ANCHURA ETIQUETA",E(7) 

25240 PRINT "MARGEN SUPERIOR", E(8) 

25250 PRINT "MARGEN IZQUIERDO",E(9) 

25260 PRINT:PRINT :PRINT | 
25270 HATB 20: INPUT "MODIFICACIONES? "¡AS 
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25280 A$=LEFTS(AS, 1) 
25290 IF A$="N" OR A$="" THEN 26000 
25300 FOR 1=0 TD 9 
25310 VTAB 3+1+21(120)+(155):HTAB 33 
25320 INPUT ““;85:1F A$29%" THEN ECI)=INT (VAL(AS)) 
25325 VTAB FHIA2UM(IDOD CIS HTAR 3S:PRINT ECO" 
25330 NEXT 
25340 IF E(6)<E18)+4 THEN 25300 
25350 IF E(7)<E19)+20 THEN 25300 
25390 6070 25113 
26000 GOSUÉ 30000 
26010 RETURN 
30000 REM ESCRITURA DEL SIST.CTRL (CONTROL DEL SISTEMA), 
30010 PRINT D$;D1$"SIST.CTRL,S6,D1" 
30020 PRINT D$;d1$"5I5T.CTRL" 
30030 PRINT NC", "EM 
30035 FOR 1=0 TO 9:PRINT E(I):NEXT 
30040 FOR I=1 TD NCsPRINT LBS(ID%,"TP(D)","LL CI) NEXT 
30050 RESTORE 
30060 FOR I=0 TJ 10:READ AS:PRINT A$","R(I)","S(1)%,"D(I) ¿NEXT 
30070 PRINT D$;C1$"SIST.CTRL" 
30080 RETURN 
35000 REM LECTURA FICHERD BD.CTRL 
35010 PRINT D$;0$(2) 
35020 PRINT DS;R$(2) 
35030 INPUT TA(Z,0),18(1,1)14(1,2) 
35040 FOR I=1 T0 4 
35060 NEXT 
35070 PRINT D$;C$12) 
35080 RETURN 
40000 REM LECTURA DEL FICHERO SITS.CTRL 
40010 B$(0)="":B$(1)=",R* 
' 40020 PRINT D$;15"SIST.CTRL,56,D1" t 
280030 PRINT DS¿R1$"SIST.CTRL" 
40040 INPUT NC,EM 
40045 FOR 1=0 TO 9: INPUT E(I);NEXT 
40050 FOR 1=1 TO NC: INPUT LB$(1),TP(1),LL(I)<NEXT 
30060 FOR 1=0 TO 10 
40070 L9="": INPUT AS,R(D,SUD,D(D: IF RUDO THEN L$=",L"+STRS(RCID) 
40080 DS(I)=01S+A$+LG+", SUESTRE(S(I))+",D"FSTRSID(D)) 
40090 R$(1)=R1PAS+BG(RUIDDO) 
40100 H$(D)=HIS+A$+BS(R(1)>0) 
40110 C$(I)=C19+A$ 
40120 NEXT 
40130 PRINT D$;C19"SIST.CTRL" 
40140 RETURN 
42000 REM ESCRITURA DEL FICHERO BD.CTRL (CONTROL BASE DE DATOS). 
42010 PRINT D$;D$(2) 
42020 PRINT D$;M$(2) 
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42030 PRINT NX", "EA", "FL", "PT", “CN", *DF 

42040 FOR I=1 TO 4 

42050 PRINT 1A(1,0)*,"1A(1,1)",1411,2) 

42060 NEXT e 

42070 PRINT D$;0$12) 

42080 RETURN 

60000 MENU PRINCIPAL PROSRAMA CONFIGURACION DEL SISTEMA 
60010 G0SUB 62000 

60020 ONERR GOTO 60050 

60030 50SUB 40000:605UB 35000 

60035 POKE 216,0 

60040 GOTO 60500 

60050 REM INICIALIZACION 

60060 IF PEEK(222)<)5 THEN 63900 

60070 POKE 246,0 : 

50075 NEXT 

60090 GOSUB 2500 

60095 R(O)=LL(1)+6:R(1)=LR 

60100 5OSUB 30000 

60110 GOSUE 40000 

60120 GOSUB 42000 

60150 REM ESCRITURA FICHEROS MAESTROS 

60155 VTAB 22:CALL -958:HTAB 4: INPUT "CUANTOS REGISTROS? "sA$:A=VAL (49) 
60158 HTAB 8:FLASH:PRINT “COMPRUEBO SI ESTAN":NORMAL 
60160 ONERR GOTO 60360 

60190 PRINT D$;0$(0) 

60200 PRINT D$;0$(1) 

60205 PRINT DSWS(0)O:PRINT ""sPRINT O:PRINT DSHS(1)0:PRINT *" 
80210 FOR 1=1 TO A 

60220 PRINT DS;W$(0)51 

60230 PRINT FRS;PRINT 1 

60240 PRINT DS;W$(1)51 

60250 PRINT STS 

60260 NEXT 

60270 1=1+1 

60280 PRINT DS;C1$:EM=1 

60290 VTAB 23:CALL -958:HTAB 1:PRINT "NUMERO MAXIMO DE REGISTROS: ";EM; 
60300 HTAB 26: INPUT "MODIFICACIONES? "¡AS 

60310 IF LEFTS(AS,1)="N" THEN GOSUB 30000:GOSUB 42000:G0TO 60500 
60320 1F LEFTS(A$,1)<)"S" THEN 60290 

60330 PRINT DS"ELIMINACION FICHERO MST. INX* 

60340 PRINT DS"ELIMINACION FICHERO MST.FL" 

60350 6070 60090 

50360 1F PEEK(222)<)9 THEN 63900 

60370 ONERR GOTO 60460 : 

60380 PRINT D$;0$(0) 

60390 PRINT D$;0$11) 

60400 I=1+1 

60410 PRINT DS¿R$10);1 
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60420 INPUT AS 
60430 PRINT DS;R$(1)51 

60440 INPUT AS 

60450 POKE 216,0:60T0 60280 

50480 TF PEEK(222)<)5 THEN 63900 

60470 PRINT D$;C1$ 

60480 GOTO 50380 

60500 REM MENU PRINCIPAL PROGRAMA CONFIGURACION SISTEMA 
60505 DIM IXS (EM), IZ(EM),PIZ(EM) 

60510 HOME:HTAB 10:PRINT "RECONFIGURACION SISTEMAS" 
60520 VTAB 5 

60530 PRINT " 1- ACTUALIZACION INDICES ADICIONALES" 
60540 PRINT :PRINT * 2- CREACION ARCHIVOS CONCATENADOS* 
60550 PRINT :PRINT * 3- CONFIGURACION IMPRESORA" 

60580 PRINT :PRINT * 4- RETORNO AL MENU PRINCIPAL" 
60570 VTAB 22:MTAB 20:PRINT "B.B.1.* 

60600 VTAB 15:HTAB 10: INPUT "CUAL? "¡AS 

60610 I=VAL(A$) 

60620 IF I<1 OR 154 THEN 60510 

60630 ON GOSUB 15000, 20000, 25000, 61000 

50640 GOTO 60510 

61000 REM RETORNO A LA BASE DE DATOS 

61010 PRINT DS,C1$ 

61020 PRINT DS'RUNLOGO,S6,D1* 

62000 REM INICIALIZACION VARIABLES 

62010 -D$=CHR$ (4) 

62020 Tg= * ' 

52030 NM=14 

62040 DIM TP(NM) LL (NM) ¿LBS(NM),LD(1),1D(4,2),VISINM),V2S (NM) 
62050 FR$=CHR$195) 

62100 DI$="0PEN" 

62110 Ri$="READ" 

62120 M1$="WRITE" 

62130 C1$="CLOSE" 

62160 RETURN 

62500 REM PRIMERA VEZ 

62510 HOME: CN=80: RESTORE 

62520 FOR 1=0 TO 10:READ AS:NEXT 

62530 FOR 1=0 TO 10:READ R(I):NEXT 

62540 FOR 1=0 10 10:READ S(1) ¿NEXT 

62550 FOR 1=0 10 10:READ D(I):NEXT 

62555 FOR 1=0 10 9:READ ELI):NEXT 

62560 VATB 9:HTAB 9: INPUT "BASE DE DATOS EN UNIDAD:"¿AS:A=VAL(A$) 
62570 IF AC) AND AC)2 THEN 62560 

62580 PRINT :HATB 22: INPUT "SEGURO? "¿AS 

62590 IF LEFTS(AS,1)<)"S" THEN 62560 

62600 FOR 1=0 TO2:D(1)=A:NEXT 

63000 REM CONFIGURACION DEL SISTEMA 

63020 HOME:HTAB 18:PRINT "CONFIGURACION DEL SISTEMA" 
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63030 HTAB 13:PRINT "CUANTOS CAMPOS: *s1F NC THEN PRINT NC; 

63040 1F NCNM OR NC<1 THEN 63020 

63050 VATB 2:HTAB 27:CALL -868:PRINT NC 

63060 VATE 4:HTAB 11:PRINT "NOMBRE";:MTAR 24:PRINT "TIPO (A/N)*¡:HTAB 25:PRINT * 
LONGITUD" 

63070 FOR I=1 TO NC 

63080 VATB I+5:CALL -868:1F 1310 THEN HTAB 2 

63090 PRINT 1; "CAMPO"; 

63100 HTAB 10:1F LB$(1)<)** THEN PRINT LBS (1); 

63110 HTAB 10: INPUT "*¡As E 

63113 1F A$="" AND LBS(1)="" THEN 63080 

63116 1F A$()"" THEN LBS(I)=AS 

63120 VTAB I+5:HTAB 10:PRINT LB$(1) 

63140 IF TP(I)=1 THEN INPUT "ALFANUMERICO "¡AS 

63145 1F TP(1)=2 THEN INPUT" NUMERICO “¡AS 

63150 1F TP(I)=0 THEN INPUT " "¡As 

63160 VTAB I+5:HTAB 20 

63170 1F A$="A* THEN TP(I)=1:CALL -868:PRINT "ALFANUMERICO*:GOTO 43200 

63180 IF As="N" THEN TPCI)=2:CALL -G68:PRINT "  NUMERICO “¿GOTO 63200 

63190 IF AS<)"" OR TP(I)=0 THEN 63130 

63200 VTAB I+S:HTAB 35:CALL -868 

63210 1F LL(1)<)0 THEN PRINT LEFTS(TS, 4-LENISTRS(LL(1))))5LL(I)3xHTAB 35 

63220 INPUT "";As 

63230 IF A$="" AND NOT LL(I) THEN 63200 

63240 1F A$C)"" THEN LL(I)=INT (VAL(LEFTS(AS,3))) 

63250 IF LL(I)<1 OR LL(1)>29 THEN 63200 

63260 VTAB I+5:HTAB 3S:CALL -868:PRINT LEFTS(TS, 4-LEN(STRS (LL (1))))5LL(1) 

63270 NEXT 

63280 LR=NC:FOR I=1 TO NC:LR=LRELL (1) NEXT 

63290 VTAB 21:PRINT "LONGITUD REGISTRO "LR" BYTES" 

63300 VTAB 23:HTAB 20: INPUT "MODIFICAR? "¡AS 

63310 1F LEFTS(AS,1)0)"N" THEN 63000 

63320 ST$="" 

63330 JsLR-1:1FJ)255 THEN J=255 

63340 FOR I=1 TO J:ST$=STS+FRS:NEXT 

63350 RETURN 

63800 DATA “MST.INX",“NST.FL", "DB.CTRL”, "LNK.CTRL”, “LNK.ENTRY", "LNK,PTR", “LNK.FR 

" "INDEX.1*, "INDEX.2*, "INDEX. 3", "INDEX.4" | 

63810 DATA 1,1,0,0,5,5,1,1,1,1,1 

63820 DATA 6,6,6,6,6,6,6,6,6,6,6 

63830 DATA 1,1,1,2,2,2,2,2,2,2,2 

63840 DATA 66,0,0,0,0,0,6,39,1,4 

63900 HOME: FLASH: VTAB 10:HTAB 12:PRINT "CODIGO ERROR = "PEEK(222) sNORMAL:END 
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Programa de chequeo 


10 GOTO 60000 
100 REM 2RRRESRRRRLREN CER ERE RREREOr 

101 RER ER APPLE 11 $ 

102 REM $4 1” 

103 REX £% BASE DE DATOS PERSONAL 44 

104 REM $XRRRERRASRALI REL AREIRRRRAKS 

200 GR:ER=0 

210 FOR I=1 TO EM 

220 PRINT R$(0);1:INPUT AS: INPUT A 

225 IF(1<=EA) AND (ASC)FR$) THEN PRINT R$(1)A: INPUT AAS: IF ASCDAOS THEN ER=1 
230 1H(A)=IZ(0)+1 

240 COLOR =17%(A)s1F 1%(A)>15 THEN COLOR =15 

250 6=A:1F EMD1599 THEN G=INT(1599%A/EM) 

260 Y=INT (6/40): X=G-YR40:PLOT X, Y 

270 NEXT :PRINT D$ 

300 IF 171010 THEN ER=1 

310 FOR 1=1 TO EM :1F 12(1)<)1 THEN ER=1 

320 NEXT : 

330 RETURN 

1000 REM LECTURA DEL FICHERO SIST.CTRL 

1010 BS(0)="":BS(1)=" ¿Re 

1020 PRINT D1$"SIST.CTRL,S6,D1* 

1030 PRINT R1$"SIST.CTRL":INPUT NC(O),EM 

1040 FOR 1=0 TO 9: INPUT E(1):NEXT ¿LP=E(0) 

1050 FOR 1=0 TO NC(0): INPUT LB$11,0),TP(1,0),LL(1,0):NEXT 
1060 FOR 1=0 TO 10 

1070 L$=""s INPUT AS,R(1),S(1),D(I):1F ROD) THEN LS=" ,LUESTRSIR(DD) 
1080 D$(I)= DIS+ASHLG+" ¡SUFSTRÍISIIDI4" ¡D"RSTRSIDIT)) 
1090 R$(T)= RIS+AS+BG(RIIJOO) 

1100 WS(I)= MIS+AS+BS(R(I)D0) ; 
1110 C$(1)= C19+A9 

1120 NEXT 

1130 PRINT C1$'SIST,CTRL* 

1140 RETURN 

1500 REM LECTURA DEL FICHERO BD.CTRL 

1510 PRINT 0$(2) 

1520 PRINT R$(2): INPUT NX,EA,PL,PT,CM,DF 

1540 FOR I=1 TC 4: INPUT IA(I,0),16(1,1), 140,2): NEXT 

1570 PRINT 0$(2) 

1580 RETURN 

2000 REM HEAPSORT 

2005 FOR L=0 TO EASIZ(L)=L:NEXT 

2010 IF EA=1 THEN RETURN 

2015 L=INT(EA/2)+1:R=EA 

2020 IF L)4 THEN L=L-1:A=1%(L):6070 2040 

2025 ASIMARI STAR) SIZ (1) R=RA 


139 


2030 IF R=i THEN 1%.(1)=A: RETURN 

2040 J=L 

2045 1=J:J=283 

2050 1F J>R THEN I%(1)=A:G0T0 2020 

2055 1F J<R THEN PRINT RS(1);T 403): INPUT AS:PRINT R$(1), I2CJ+1) 6 INPUT BS: IF ASCB 
$ THEN J=J+1 

2060 PRINT R$(1)3As INPUT AS:PRINT RGC), 1003): INPUT BS: IF AS<BS THEN I2(1)=I 
4(3):60T0 2043 

2065 124(1)=A:6070 2020 

20000 REM COMPROBACIÓN FICHERO MAESTRO 

20010 G60SUB £2000:605UB 1000:6DSUB 1500 

20020 DIM TA (EM) 

20030 PRINT 0$(0):PRINT 0$(1) 

20100 G0SUB 200 

20250 1F ER THEN 21000 

20290 HOME:PRINT C1$ 

20300 VTAB 21:HTAB 12:PRINT "TODO CORRECTO !” 

20310 PRINT +HTAB ¿2: INPUT “PULSE RETURN"; A$ 

20320 RETURN 

21000 REM MODIF, 1*NIV 

21005 60SUB 50000: 1F NOT C THEN PRINT C1$: RETURN 

21007 HOME :VTAB 22:HTAB 10:PRINT "INTENTO DE CORRECION" 

21010 PRINT W$10),0:PRINT ""sPRINT 0 

21020 1F EACEM THEN FOR 1=EA+1 TO EM:PRINT W$(0);1:PRINT FR$:PRINT 1:NEXT 

21090 FOR 1=0 TO EM: 1441) =0: NEXT 

21100 GOSUB 200: IF NOT ER” THEN 20290 

21200 G05UB 200 

21300 FOR 1=1 TO EA 

21310 PRINT R$(10 1201) INPUT AZ 

21320 PRINT N$(0)1:PRINT 1%(1) 

21330 NEXT :PRINT DS 

21400 FOR 1=1 TO EN:1%(1)=0:NEXT 

21410 60SUB 200: IF NOT ER THEN 20290 

21500 HOME :VTAB 21:HTAB 10:PRINT "IMPOSIBLE SUBSANAR" | 

21510 PRINT :HTAB 13: INFUT “(PULSE RETURN)"; A$ 

21520 PRINT C1$ 

21530 RETURN 

40000 REM COMPROBACIÓN CADENA 

40010 60S5UB 62000:60SUB 1000:605UB 1300 

40020 IF NOT PL THEN RETURN 

40030 PRINT 0$14):PRINT 0$(5) 

40040 PRINT R$(3): INPUT DL 

40050 DL=DL-1 

40060 DIM VZ(DL):6R 

40100 FOR I=0 TO EM > 

40110 PRINT R$(4)I: INPUT P 

40120 IF PF THEN GOSUB 40300 

40130 NEXT 

40140 ER=0 
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40130 FOR I=0 TO DL 

40160 IF V2(15<51 THEN IF 1 THEN ER=1 

40170 NEXT :PRINT D$ 

40180 IF NOT ER THEN 20290 

40200 G0SUB 50000: IF NOT C THEN PRINT C1$:RETURN 

40210 HOME: VTAB 22:HTAB 10:PRINT "INTENTO DE CORRECCION" 
40220 GOTO 40500 

40300 VZ(PI=V21P)+1 

40302 COLOR =V2(F):1F V%(P)>15 THEN COLOR =15 

30304 6=P:1F DL>1599 THEN 6=INT(15994P/DL) 

40306 Y=INT(G/40):X=6-Y440:PLOT YX, Y 

40310 PRINT R5(S)P: INPUT P 

40320 IF P THEN 40300 

40340 RETURN 

40500 PRINT RB(4)0: INPUT IL 

40505 L=IL 

40510 FOR 1=1 TO DL 

40320 1F V2(11=0 THEN PRINT M$(S)I:PRINT ILsL=I: 4201) =1 
20530 NEXT 

40350 FOR 1=L TO DL 

40360 IF V2(I1=0 THEN PRINT R$(5)I:PRINT LsL=1 

40370 NEXT 

40600 PRINT WS(4)0:PRINT L 

40610 PRINT Ds 

40700 HOME; PRINT C1$ 

40720 VTAB 21:HTAB 10:PRINT "VOLVER A INTENTAR VERIFICACION" 
40730 HTAB 10:PRINT "NO PUEDO HACER OTRO" 

40740 HTAB 10: INPUT "PULSE RETURN";A$ 

40750 RETURN 

50000 HOME:VTAB 21:HTAB 1S:sFLASH:PRINT "ERROR": NORMAL 
50010 HTAB 1:PRINT “SE RECOMIENDA UTILIZAR DISCOS COPIA" 
30020 HTAB 2:PRINT "PULSE (F) PARA TERMINAR" 

30030 HTAB 2:PRINT "PULSE (C) PARA INTENTAR LA CORRECCION" 
30040 PRINT :C=(A$="C") 

30050 1F AS$C7"F" AND NOT C THEN 50000 

30066 HOME 

30199 RETURN 

60000 REM MENU PRINCIPAL 

60100 TEXT: HOME: CLEAR 

60110 VTAB 6:HTAB 4:PRINT " 1- VERIFICAR ARCHIVO 1* 
60120 VTAB B:HTAB 4:PRINT * 2- VERIFICAR ARCHIVO 2* 
60130 VTAB 10:HTAB A: PRINT " 3- MENU PRINCIPAL" 

60140 VTAB 12: HTAB 4:PRINT * 4- FIN" 

60200 VTAB 23:HTAB 20:PRINT " B,B.I." 

60210 VIAB 16:WTAB 10: INPUT "CUAL? "¡As 

60220 ON VAL(A3) GOSUB 20000,40000,60400,60300 

60230 GOTO 60000 

60300 REM FIN 

50319 PRINT ib 
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60320 PRINT "LOCKLOGO, Di" 

50330 PRINT "MAXFILES 3" 

60340 HOME:PRINT “ADIOS 1" 

60350 END : ; 

60400 REM VOLVER AL MENÚ PRINCIPAL 

60410 PRINT "RUNLOGO,D1” 

62000 REM INICIALIZACION VARIABLES 

62010 I=0:T1$="-":FOR J=1 TO 4:T118=T1$+T1S:NEXT 

62020 DS=CHR$ (4): FR$=CHR$ (95) 

62030 NM=15 | 

62040 DIM LES(NK,1),TPCNA, 1),LL (NM, 1) ,RBS.CNM, 1)RVS (NM, 1) ,EVS (25) 
62050 D1$=08+"0PEN:R1S=D$+"READ":V1$=D$+"WRITE":C1$=D$+"CLOSE" 
62060 DIM MISINM,1),MAS(NM, 1) 

62070 FOR I=1 TO NMyFOR J=0 TO 1:MA$(1,3)=FR$:LBS (NM, 3)="TOTAL "NEXT 3,1 
$2200 RETURN 
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n anteriores volúmenes de la Biblioteca 

Básica Informática nos hemos acercado ya 

al manejo y almacenamiento de la infor- 

mación de una forma informatizada. He- 
mos visto también cómo se lograba esto 
mediante un programa comercial (el dBA- 

SE). 

Cuando intentamos aplicar estos conoci- 
mientos a un ordenador personal nos encontramos, sin 
embargo, con una serie de limitaciones (como la memo- 
ria) que impiden un aprovechamiento óptimo de nuestro 
banco de datos. En este volumen veremos cómo diseñar 
nuestra propia base de datos para adaptarla expresamen- 
te a nuestras necesidades. 


395 pts. 
(incluido IVA) 


